Hallo,
vielleicht hilft dir dieser Ansatz:
Private Sub Form_Load()
Listbox1.AddItem ("1")
Listbox1.ItemData(Listbox1.NewIndex) = 1
Listbox1.AddItem ("2")
Listbox1.ItemData(Listbox1.NewIndex) = 2
Listbox1.AddItem ("3")
Listbox1.ItemData(Listbox1.NewIndex) = 3
End Sub
Gruß
Christian
Private Sub cmdok_Click()
LblZahl.Caption = Listbox1.ItemData(Listbox1.ListIndex)
End Sub
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!