怎么打开系统的控制面板？

Question

我是用VB写的程序，怎么在程序中写代码，把系统的控制面板打开呀？谢谢各位老大!!

Answer 1

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As LongPrivate Sub Command1_Click()
    Call WinExec("rundll32.exe shell32.dll,Control_RunDLL", 9)
End Sub

Answer 2

FORM
============================
Private Sub Command1_Click()
Dim lRetVal As Long
lRetVal = ShellExecute(0&, vbNullString, "Control.exe", vbNullString, vbNullString, 1)
End Sub==========================================
模块
============================
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
   "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory _
    As String, ByVal nShowCmd As Long) As Long