' Liest den angeklickten Eintrag aus und zeigt
' ihn in der Titelleiste deines Programmfensters an.
Private Sub List1_Click()
    With List1
        Caption = .List(.ListIndex)
    End With
End Sub

' Liest einen bestimmten Eintrag aus.
' Im Beispiel der zweite Eintrag.
Private Sub Command1_Click()
    With List1
        Caption = .List(1)
    End With
End Sub