VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 启动控制面板中的选项
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9332, 日期:2001-04-06
Private Sub Command1_Click()
Shell "control.exe" & " sysdm.cpl @1"
End Sub

Private Sub Command10_Click()
Shell "control.exe" & " netcpl.cpl"
End Sub

Private Sub Command11_Click()
Shell "control.exe" & " Password.cpl"
End Sub

Private Sub Command12_Click()
Shell "control.exe" & " powercfg.cpl"
End Sub

Private Sub Command13_Click()
Shell "control.exe" & " sticpl.cpl"
End Sub

Private Sub Command14_Click()
Shell "control.exe" & " timedate.cpl"
End Sub

Private Sub Command15_Click()
Shell "control.exe" & " telephon.cpl"
End Sub

Private Sub Command16_Click()
Shell "control.exe" & " odbccp32.cpl"
End Sub

Private Sub Command17_Click()
Shell "control.exe" & " desk.cpl"
End Sub

Private Sub Command18_Click()
Shell "control.exe" & " dtccfg.cpl"
End Sub

Private Sub Command2_Click()
Shell "control.exe" & " sysdm.cpl"
End Sub

Private Sub Command3_Click()
Shell "control.exe" & " appwiz.cpl"
End Sub

Private Sub Command4_Click()
Shell "control.exe" & " inetcpl.cpl"
End Sub

Private Sub Command5_Click()
Shell "control.exe" & " intl.cpl"
End Sub

Private Sub Command6_Click()
Shell "control.exe" & " joy.cpl"
End Sub

Private Sub Command7_Click()
Shell "control.exe" & " main.cpl"
End Sub

Private Sub Command8_Click()
Shell "control.exe" & " mmsys.cpl"
End Sub

Private Sub Command9_Click()
Shell "control.exe" & " modem.cpl"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Thank You for using my snippet", vbInformation
End Sub