Option Explicit
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, vbNullString, _
  "C:\Programme\Netscape\Netscape\Netscp.exe", "http://www.vbarchiv.de", _
  vbNullString, 1)
End Sub