Option Explicit
 
Private Sub Form_Load()
  With List1
    .AddItem "Text1"
    .AddItem "Text2"
    .AddItem "Text3"
  End With
  Command1.Enabled = False
End Sub
 
Private Sub List1_Click()
  Command1.Enabled = (List1.ListIndex >= 0)
End Sub
 
Private Sub Command1_Click()
  ' ausgewählter Text
  MsgBox List1.Text
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de