Option Explicit
Private Sub Form_Load()
'   Me.Picture = LoadPicture(App.Path & "\control.bmp")
End SubPrivate Sub Label1_Click(Index As Integer)
   Dim x
   Select Case Index
     Case 0             '打开 IE4 的设置窗口：
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl")
     Case 1             '打开 声音的设置窗口：
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1")
     Case 2             '启动日期和时间设置:
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
     Case 3            '启动显示设置面板:
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,")
     Case 4              '启动网络设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
     Case 5             '启动多媒体设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0")
     Case 6             '启动辅助选项
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5")
     Case 7             '打开鼠标设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1")
     Case 8             '启动键盘设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0")
     Case 9              '打开区域设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0")
     Case 10             '启动添加硬件设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1")
     Case 11             '启动添加软件设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1")
     Case 12             '打开系统设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0")
     Case 13            '启动调制解调器设置
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl")
     Case 14            '打开密码设置:
     x = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl")
   End Select
End Sub
Private Sub Command1_Click()     '启动控制面板:
   Dim x
   x = Shell("rundll32.exe shell32.dll,Control_RunDLL", 1)
End Sub
Private Sub Command2_Click()
   End
End Sub