'thanks to  Rick Ratayczak of Future Works Media (rickr@execpc.com)
'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
Return