ConnectURL

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
'on a form under the command_click event

Private Sub Command1_Click()
Dim ret&
ret = ShellExecute(Me.hwnd, "Open", _
"http://www.professionals.com/~peterp/", _
"", App.Path, 1)
End Sub