vb6如何点击一个按钮打开一个指定网站

建一个Command1。
代码如下。
＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Shell "explorer ""http://bbs.51mxd.com/?a=jkl705"""
End Sub

既然你诚心诚意的问了 ....省略
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 hwnd, "open", "http://bbs.51mxd.com/?u=176028", "", "", "1" '将我的地址改为你的
End Sub