Private Sub Image1_Click()
Dim I As Long
===> Me.ListBox2.Clear <===
For I = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(I) Then
Me.ListBox2.AddItem Me.ListBox1.List(I, 0)
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = Me.ListBox1.List(I, 1)
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = I
End If
Next I
For I = Me.ListBox1.ListCount - 1 To 0 Step -1
If Me.ListBox1.Selected(I) Then
Me.ListBox1.RemoveItem I
End If
Next I
End Sub