Option Explicit
Private Sub List1_DblClick()
Dim intero As Integer
intero = List1.ListIndex
List2.AddItem (List1.List(intero))
Combo1.Text = List1.List(intero)
Combo1.AddItem (List1.List(intero))
List1.RemoveItem (intero)
End Sub
Private Sub List2_DblClick()
Dim intero As Integer
intero = List2.ListIndex
List1.AddItem (List2.List(intero))
List2.RemoveItem (intero)
End Sub
Private Sub Text1_DblClick()
List1.AddItem (Text1.Text)
Text1.Text = ""
End Sub
Private Sub Text2_DblClick()
List2.AddItem (Text2.Text)
Text2.Text = ""
End Sub