'on a 
module
 form
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