Option Explicit
 
Private Sub Form_Load()
    With sevText1
        .Clear
        .AddItem "Eins"
        .ItemData(.NewIndex) = 1
        .AddItem "Zwei"
        .ItemData(.NewIndex) = 2
        .AddItem "Drei"
        .ItemData(.NewIndex) = 3
        .ListIndex = 0
    End With
End Sub
 
Private Sub sevText1_Click()
    With sevText1
        .ToolTipTitle = sevText1.Text
        .ToolTipText = "Der selektierte Wert ist '" & sevText1.Text & "'."
    End With
End Sub

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...