• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Short cut to control panel items easy and quick way

Short cut to control panel items easy and quick way

Short cut to control panel items easy and quick way

API Declarations


and two buttons
name the buttons launch and cancel



Rate Short cut to control panel items easy and quick way

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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.