vb打开text里面的地址（用按钮）

楼上的好麻烦。
看看我的。很简单的一句话，
Private Sub Command1_Click()
shell "cmd.exe /c" & "@start " & text1.text
End Sub

PS:如果text1.text 中的内容是http://www.xxxx.com则在新窗口中打开。如果没有http://的话那就不在新窗口中打开。

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()
Call ShellExecute(Me.hwnd, "Open", Text1.Text, "", App.Path, 1)
End Sub

用shell调用浏览器，去查一下shell的用法吧

那里的地址？