vb连接到网站的代码

'最简单有效的办法是：
Private Sub Form_Load()
Label1.Caption = "百度": Label1.Tag = "http://baidu.com/": Label1.ToolTipText = Label1.Tag
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = 0
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shell "rundll32.exe url.dll,FileProtocolHandler " & Label1.Tag, 1
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = RGB(0, 0, 255)
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