'Hier die benötigten API-Deklarationen
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
 
'Diese nachfolgende Prozedur aktiviert den im
'System registrierten Standard-Browser und lädt
'die durch URL angegebene Internetadresse
Public Sub URLGoTo(ByVal hWnd As Long, ByVal URL As String)
 
  'hWnd: Das Fensterhandle des 
  'aufrufenden Formulars
 
  Screen.MousePointer = 11
  Call ShellExecute(hWnd, "Open", URL, "", "", 1)
  Screen.MousePointer = 0
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.