by king (24 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 22nd September 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Short cut to control panel items easy and quick way
API Declarations
and two buttons
name the buttons launch and cancel
Private Sub Form_Load()
List1.AddItem "Mouse settings"
List1.AddItem "Time settings"
List1.AddItem "Add_remove program"
List1.AddItem "Add_new hardware"
List1.AddItem "Window display resolution"
List1.AddItem "Internet properties"
List1.AddItem "Game controller"
List1.AddItem "Keyboard properties"
List1.AddItem "Modem properties"
List1.AddItem "Multimedia properties"
List1.AddItem "Network properties"
List1.AddItem "Windows password"
List1.AddItem "Sound properties"
List1.AddItem "System properties"
List1.AddItem "Fonts list "
List1.AddItem "Find all files "
End Sub
On the button launch apply this code::
Private Sub cmdlaunch_Click()
Dim i As Integer
Dim searchpath As String
For i = 0 To List1.ListCount
If List1.ListIndex = 0 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl")
ElseIf List1.ListIndex = 1 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
ElseIf List1.ListIndex = 2 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl")
ElseIf List1.ListIndex = 3 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl")
ElseIf List1.ListIndex = 4 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl")
ElseIf List1.ListIndex = 5 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl")
ElseIf List1.ListIndex = 6 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl")
ElseIf List1.ListIndex = 7 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1")
ElseIf List1.ListIndex = 8 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl")
ElseIf List1.ListIndex = 9 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl")
ElseIf List1.ListIndex = 10 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
ElseIf List1.ListIndex = 11 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl")
ElseIf List1.ListIndex = 12 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1")
ElseIf List1.ListIndex = 13 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl")
ElseIf List1.ListIndex = 14 Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3")
End If
Next i
End Sub
Just copy and paste this code into your application and you are on.