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
 
  Public Function OpenUrlFile(sFile As String) As Boolean
    On Error Resume Next
    OpenUrlFile = ShellExecute(Me.hwnd, "open", sFile,"","",1) > 32
  End Function

OpenUrlFile("http://www.meineadresse.de/")

OpenUrlFile("mailto:meine@adresse.de")

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.