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
Const SW_SHOWNORMAL = 1
 
Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString, _
      "http://www.visualbasic-archiv.de/home/willkommen.php3", vbNullString, _
      "C:\", SW_SHOWNORMAL
End Sub