• Home
 · 
• Windows System Services
 · 
• This code will launch any Item in the control panel + add new printer and much much more.

This code will launch any Item in the control panel + add new printer and much much more.

This code will launch any Item in the control panel + add new printer and much much more.

API Declarations


'None
'Have fun



Rate This code will launch any Item in the control panel + add new printer and much much more.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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