Dim i As IntegerDim a As StringPrivate Sub L1_dblClick()For i = 0 To 3If L1.Selected(i) = True ThenL1.AddItem aEnd IfNextEnd SubPrivate Sub Text1_Change()a = Text1.TextEnd Sub