Private Function MoveItems(ByRef SourceList As ListBox, _
  ByRef TargetList As ListBox, Optional ByVal intTargetIndex As Integer = -1)
 
  Dim i As Integer
  If intTargetIndex < 0 Then
    ' should be added at the end of the list
    intTargetIndex = TargetList.ListCount
  ElseIf intTargetIndex > TargetList.ListCount Then
    ' invalid target index
    MoveItems = False
    Exit Function
  End If
  ' loop through items
  For i = SourceList.ListCount - 1 To 0 Step -1
    If SourceList.Selected(i) Then
      ' item is selected -> add item to target list
      TargetList.AddItem SourceList.List(i), intTargetIndex
      ' copy itemdata as well
      TargetList.ItemData(TargetList.NewIndex) = SourceList.ItemData(i)
      ' remove item in source list
      SourceList.RemoveItem i
    End If
  Next i
  MoveItems = True
End Function

MoveItems lstSource, lstTarget

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.