'In Modul
Public 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
 
Public Sub URLGoTo(ByVal hWnd As Long, ByVal URL As String)
 
  Screen.MousePointer = 11
  Call ShellExecute(hWnd, "Open", URL, "", "", 1)
  Screen.MousePointer = 0
End Sub
 
'In DHTMLPage
Private Function Button1_onclick() As Boolean
URLGoTo Form1.hWnd, "DHTMLPage2.html" 'Für den Handle habe ich eine Form1 
' einfach mit eingebunden
End Function