Private Sub Form_Load()
  ' ListBox mit Einträgen füllen
  Dim i As Integer
 
  For i = 1 To 10
    List1.AddItem "Eintrag " & CStr(i)
  Next i
End Sub
 
' mittels Doppelklick ausgewählten
' Eintrag in TextBox schreiben
Private Sub List1_DblClick()
  With List1
    If .ListIndex < -1 Then
      Text1.Text = .List(.ListIndex)
      .Enabled = False       ' ListBox deaktivieren
    End If
  End With
End Sub
 
Private Sub Command1_Click()
  With List1
    If .Enabled Then
      ' Hinzufügen!
      .AddItem Text1.Text
    Else
      ' Aktualisieren
      .List(.ListIndex) = Text1.Text
      .Enabled = True
    End If
    Text1.Text = ""
  End With
End Sub