Private Sub c1_Click()Dim x As Integer For x = List1.ListCount - 1 To 0 Step -1If List1.Selected(x) = True Then List2.AddItem List1.List(x) List1.RemoveItem x If x < List1.ListCount Then
List1.ListIndex = x Else
List1.ListIndex = -1 End IfEnd If Next x If List1.ListCount = 0 Then C1.Enabled = F...