关于VB如何打开运行 - VB / 基础类

在VB中我想实现单击一个按钮，就打开Windows系统中开始菜单中的那个运行，该如何实现啊？（快捷键也就是WIN+R）

---

VB code:
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal UnknownP1 As Long, ByVal UnknownP2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
SHRunDialog Me.hwnd, 0, 0, "Run Dialog", "Choose a program and press OK", 0
End Sub

---

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event 91, 0, 0, 0
keybd_event 82, 0, 0, 0
keybd_event 82, 0, 2, 0
keybd_event 91, 0, 2, 0
End Sub

---

http://topic.csdn.net/t/20030307/16/1503968.html