Private Sub Command3_Click()
   Dim MergeItem As String   
 
   With List1
      If  .ListIndex <0 Then Exit Sub 'Es wurde nichts selectiert.
      If  .ListIndex = 0 Then Exit Sub 'Es wurde der 1. Eintrag selectiert, 
      ' kann nicht verschoben werden!"
 
      MergeItem = .List(.ListIndex)
      .List(.ListIndex) = .List(.ListIndex-1)
      .List(.ListIndex-1) = MergeItem
   End With
End Sub 
 
Private Sub Command4_Click()
   Dim MergeItem As String   
 
   With List1
      If  .ListIndex <0 Then Exit Sub 'Es wurde nichts selectiert.
      If  .ListIndex = .ListCount-1 Then Exit Sub 'Es wurde der letzte Eintrag 
      ' selectiert, kann nicht verschoben werden!"
 
      MergeItem = .List(.ListIndex)
      .List(.ListIndex) = .List(.ListIndex+1)
      .List(.ListIndex+1) = MergeItem
   End With
End Sub