(VB 6) Link mit Default-Browser öffnen

Option Explicit
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

Private Sub Command1_Click()

  Dim Result&
    
    Result = ShellExecute(Me.hwnd, "Open", _  
             "http://www.domain.de", "", App.Path, 1)  

End Sub