Indsætte til listbox

Option Explicit

Private Sub Form_Load()
  With List1 ' <- ListBox
      .AddItem "Anders"
      .ItemData(.NewIndex) = 2322
     
      .AddItem "Kurt"
      .ItemData(.NewIndex) = 9222
     
      .AddItem "Felix"
      .ItemData(.NewIndex) = 122
     
      .AddItem "Alexander"
      .ItemData(.NewIndex) = 8911
  End With
End Sub

Private Sub List1_Click()
  With List1 ' <- ListBox
      MsgBox .ItemData(.ListIndex) & " = " & .List(.ListIndex)
  End With
End Sub

takker.. kan du så ikke lige fortælle mig hvordan jeg får data frem for en combobox.. altså når man trykker skal den udskrive comboboksens værdi???

Option Explicit

Private Sub Form_Load()
  With Combo1 ' <- ComboBox
      .AddItem "Anders"
      .ItemData(.NewIndex) = 2322
     
      .AddItem "Kurt"
      .ItemData(.NewIndex) = 9222
     
      .AddItem "Felix"
      .ItemData(.NewIndex) = 122
     
      .AddItem "Alexander"
      .ItemData(.NewIndex) = 8911
  End With
End Sub

Private Sub Combo1_Click()
  With Combo1 ' <- ComboBox
      MsgBox .ItemData(.ListIndex) & " = " & .List(.ListIndex)
  End With
End Sub