UseCtrlPanel

'save file and rename them to [name].BAS

Attribute VB_Name = "ControlPanel32"
'

'Control Panel ( CONTROL.EXE )

'--------------------------------

'Control Panel:

' rundll32.exe shell32.dll,Control_RunDLL

'

'Accessability Options ( ACCESS.CPL )

'---------------------------------------

'Accessability Properties (Keyboard):

' rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1

'Accessability Properties (Sound):

' rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2

'Accessability Properties (Display):

' rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3

'Accessability Properties (Mouse):

' rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4

'Accessability Properties (General):

' rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5

'

'Add/Remove Programs ( APPWIZ.CPL )

'-------------------------------------

'Add/Remove Programs Properties (Install/Uninstall):

' rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1

'Add/Remove Programs Properties (Windows Setup):

' rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2

'Add/Remove Programs Properties (Startup Disk):

' rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3

'

'Display Options ( DESK.CPL )

'-------------------------------

'Display Properties (Background):

' rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0

'Display Properties (Screen Saver):

' rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1

'Display Properties (Appearance):

' rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2

'Display Properties (Settings):

' rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3

'

'Regional Settings ( INTL.CPL )

'---------------------------------

'Regional Settings Properties (Regional Settings):

' rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0

'Regional Settings Properties (Number):

' rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1

'Regional Settings Properties (Currency):

' rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2

'Regional Settings Properties (Time):

' rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3

'Regional Settings Properties (Date):

' rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4

'

'Joystick Options ( JOY.CPL )

'-------------------------------

'Joystick Properties (Joystick):

' rundll32.exe shell32.dll,Control_RunDLL joy.cpl

'

'Mouse/Keyboard/Printers/Fonts Options ( MAIN.CPL )

'-----------------------------------------------------

'Mouse Properties:

' rundll32.exe shell32.dll,Control_RunDLL main.cpl @0

'Keyboard Properties:

' rundll32.exe shell32.dll,Control_RunDLL main.cpl @1

'Printers:

' rundll32.exe shell32.dll,Control_RunDLL main.cpl @2

'Fonts:

' rundll32.exe shell32.dll,Control_RunDLL main.cpl @3

'

'Mail and Fax Options ( MLCFG32.CPL )

'---------------------------------------

'Microsoft Exchange Profiles (General):

' rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl

'

'Multimedia/Sounds Options ( MMSYS.CPL )

'------------------------------------------

'Multimedia Properties (Audio):

' rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0

'Multimedia Properties (Viedo):

' rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1

'Multimedia Properties (MIDI):

' rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2

'Multimedia Properties (CD Music):

' rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3

'Multimedia Properties (Advanced):

' rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4

' = = = = = = = = = = = = = = = = = = = = = = = = = = =

'Sounds Properties:

' rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1

'

'Modem Options ( MODEM.CPL )

'------------------------------

'Modem Properties (General):

' rundll32.exe shell32.dll,Control_RunDLL modem.cpl

'

'Network Options ( NETCPL.CPL )

'---------------------------------

'Network (Configuration):

' rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl

'

'Password Options ( PASSWORD.CPL )

'------------------------------------

'Password Properties (Change Passwords):

' rundll32.exe shell32.dll,Control_RunDLL password.cpl

'

'System/Add New Hardware Options ( SYSDM.CPL )

'------------------------------------------------

'System Properties (General):

' rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0

'System Properties (Device Manager):

' rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1

'System Properties (Hardware Profiles):

' rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2

'System Properties (Performance):

' rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3

' = = = = = = = = = = = = = = = = = = = = = = = = = = =

'Add New Hardware Wizard:

' rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1

'

'Date and Time Options ( TIMEDATE.CPL )

'-----------------------------------------

'Date/Time Properties:

' rundll32.exe shell32.dll,Control_RunDLL timedate.cpl

'

'Microsoft Mail Postoffice Options ( WGPOCPL.CPL )

'----------------------------------------------------

'Microsoft Workgroup Postoffice Admin:

' rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl

'

'

Dim Shared XFS As Integer
Sub ControlPanel(Filename As String)
Dim T As Double
On Error Resume Next
T = Shell(Filename, 5)
End Sub