Option Explicit
 
<font color=green>' zunächst die benötigten API-Deklarationen</font>
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
<font color=green>' Text+URL</font>
Dim lstDaten() As String
 
Private Sub Form_Load()
  <font color=green>' Listbox füllen</font>
  Dim I As Integer
  Const nCount = 2
  ReDim lstDaten(nCount) As String
 
  lstDaten(0) = "vb@rchiv|www.vbarchiv.de"
  lstDaten(1) = "Tools & Components|www.tools4vb.de"
  lstDaten(2) = "Shareware-Hits|www.rosoft.de"
 
  With List1
    For I = 0 To nCount
      .AddItem Left$(lstDaten(I), InStr(lstDaten(I), "|") - 1)
    Next I
  End With
End Sub
 
Private Sub cmdGO_Click()
  Dim Index As Integer
 
  Index = List1.ListIndex
  If Index > -1 Then
    <font color=green>' URL im Standard-Browser laden und anzeigen</font>
    ShellExecute Me.hWnd, "Open", _
      Mid$(lstDaten(Index), InStr(lstDaten(Index), "|") + 1), _
      vbNullString, vbNullString, vbNormalFocus
  End If
End Sub