by Faris Mlaeb (7 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 17th March 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This code will launch any Item in the control panel + add new printer and much much more.
API Declarations
'None
'Have fun
VBcoders
'E_mail :[email protected]
'I Hope That you enjoy these code
'I have been asked alot about them and when I find them I but them here in case any one need them
'program requires
'you need 5 bottun named as
'command1 and the caption is "Add new printer"
'command2 and the caption is "Format drive a:\"
'command3 and the caption is "Restart dialog"
'command4 and the caption is "Show Open with"
'command5 and the caption is "Mouse"
_______________________ CODES _____________________
private sub command1_click()
dim aa
aa=shell("RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL AddPrinter",1)
private sub command2_click()
dim bb
bb=shell("RUNDLL32 SHELL32.DLL,SHFormatDrive",1)
private sub command3_click()
dim cc
cc=shell("RUNDLL SHELL.DLL,RestartDialog",1)
private sub command4_click()
dim dd
dd=shell("RUNDLL32 SHELL32.DLL,OpenAs_RunDLL c:\autoexec.bat")'you can modify the c:\autoexec.bat with any file name you want
private sub command5_click()
dim ff
ff=shell("RUNDLL USER.EXE,SwapMouseButton",1)
'and if you need to open any Item in the control panel just type this
'you will need a nother button named command6
private sub command6_click()
dim gg
gg=shell("RUNDLL32 SHELL32.DLL,Control_RunDLL xxxxx",1) 'whereas the xxxxx is the control panel item
'you can replace the xxxxx with one of the following file
'Appwiz=add remove program
'desk = desktop proporities
'Inetcpl = internet option
'Intl=original sitting
'main=mouse
'Netcpl=net work
'to find more about these file click at start up menu then find then look for *.cpl file
'and change the xxxxx with the cpl file name
'Thank you for reading the file
'Faris Mlaeb
'[email protected]
'HOPE YOU LIKE THESE
No comments have been posted about This code will launch any Item in the control panel + add new printer and much much more.. Why not be the first to post a comment about This code will launch any Item in the control panel + add new printer and much much more..