Private Sub Command1_Click()
  With List1
    If .ListIndex >= 0 Then
      List2.AddItem .List(.ListIndex)
      .Remove .ListIndex
    End If
  End With
End Sub

Private Sub Command1_Click()
  With List2
    If .ListIndex >= 0 Then
      List1.AddItem .List(.ListIndex)
      .Remove .ListIndex
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de