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)
 
  Call ShellExecute(hWnd, "Open", URL, "", "", 1)
' Hier werden die Variablen hWnd (=Me.hWnd), lpOperation (="Open"),
' lpFile (="http://www.vbarchiv.de/"),die Variablen lpParameters und lpDirectory 
' als Nullstrig, sowie die Variable nShowCmd als Konstante "1" an die API 
' übergeben
 
End Sub
 
' Aufruf z.B.
URLGoTo Me.hWnd, "http://www.vbarchiv.de/" 
 
' Hier werden die Variablen hWnd (=Me.hWnd)
' und URL (="http://www.vbarchiv.de/") übergeben

Uli

Wissen ist Macht; nichts wissen macht auch nichts!