'Hallo Jussi... hier noch ein kleines Beispiel zum verschieben der 
' Listenfeldinhalte.
'NG.:03.04.03.do.
Private Sub Form_Load()
    With List1
        Dim n As Integer
        For n = 0 To 9
            Call .AddItem("Test " & vbTab & CStr(n))
        Next
        .Selected(0) = True
    End With
 
    For n = 0 To 1
        Command1(n).Font = "Wingdings"
    Next
    Command1(0).Caption = Chr(234)
    Command1(1).Caption = Chr(233)
    Command1(2).Caption = "&Exit"
    With Label1
        .Caption = "Ergebnis"
    End With
End Sub
 
Private Function MoveListBoxItemUp(ByRef lb As ListBox) As Long
    Dim OldPos      As String
    Dim NewPos      As String
    'Nach oben verschieben...
    With lb
        OldPos = .List(List1.ListIndex)
 
        If .ListIndex > 0 Then
            NewPos = .List(List1.ListIndex - 1)
            .List(.ListIndex) = NewPos
            .List(.ListIndex - 1) = OldPos
            .ListIndex = .ListIndex - 1
            MoveListBoxItemUp = -1
        ElseIf .ListIndex = 0 Then
            Exit Function
        Else
            MoveListBoxItemUp = 0
        End If
    End With
End Function
 
Private Function MoveListBoxItemDown(ByRef lb As ListBox) As Long
    Dim OldPos      As String
    Dim NewPos      As String
    'Nach unten verschieben...
    With lb
        OldPos = .List(List1.ListIndex)
 
        If .ListIndex + 1 <= .ListCount - 1 Then
            NewPos = .List(List1.ListIndex + 1)
            .List(.ListIndex) = NewPos
            .List(.ListIndex + 1) = OldPos
            .ListIndex = .ListIndex + 1
            MoveListBoxItemDown = -1
            Exit Function
        Else
            MoveListBoxItemDown = 0
        End If
    End With
End Function
 
Private Sub Command1_Click(Index As Integer)
    Dim Result  As Integer
 
    Select Case Index
        Case 0 ' Nach unten...
            Result = MoveListBoxItemDown(List1)
            With Label1
                .Caption = StateMessage(CBool(Result))
            End With
        Case 1 ' Nach oben...
            Result = MoveListBoxItemUp(List1)
            With Label1
                .Caption = StateMessage(CBool(Result))
            End With
        Case Is = 2: Call Unload(Me)
    End Select
End Sub
 
Private Function StateMessage(ByVal State As Boolean) As String
    Select Case State
        Case True
            StateMessage = "Item wurde getauscht"
        Case Else
            StateMessage = "Item wurde nicht getauscht"
    End Select
End Function
'Frank