<code>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
 
<font color=green>' Standard-Browser starten und WWW-Seite aufrufen</font>
Private Sub URLGoTo(ByVal hWnd As Long, ByVal URL As String)
  Screen.MousePointer = 11
  Call ShellExecute(hWnd, "Open", URL, "", "", 3)
  Screen.MousePointer = 0
End Sub
 
<font color=green>' zunächst neues leeres Browser-Fenster</font>
URLGoTo Me.hWnd, "about:blank"
 
<font color=green>' Jetzt URL in dieses neue Fenster laden</font>
URLGoTo Me.hWnd, strURL</code>