'API-Funktionen
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 Declare Function GetDesktopWindow Lib "user32" () As Long
 
'Variable für die URLs
Private Urls(0 To 1) As String
 
Private Sub Form_Load()
    'Items in die Liste einfügen und zu jedem Item eine URL festlegen
    List1.AddItem "vb@rchiv.de"
    Urls(0) = "http://www.vbarchiv.de"
    List1.AddItem "web.de"
    Urls(1) = "http://www.web.de"
End Sub
 
 
Private Sub List1_DblClick()
    'Bei Doppelklick die angegebene URL mit der ShellExecute funktion öffnen
    If Left$(Urls(List1.ListIndex), 7) = "http://" Or Left$(Urls( _
      List1.ListIndex), 4) = "www." Then
        URL = Urls(List1.ListIndex)
 
        If Left$(URL, 7) <> "http://" Then URL = "http://" & URL
 
        Call ShellExecute(GetDesktopWindow(), "Open", URL, "", "", 3)
    End If
 
    MsgBox Urls(List1.ListIndex)
End Sub