VB中单击按钮进入某个网站的代码是什么

Private 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 Private Sub Command1_Click() ShellExecute Me.hwnd, "open", " ", vbNullString, vbNullString, 0 End Sub