Private Sub NachOben_Click()
Dim Temp As String
If List1.ListIndex<=0 Then Exit Sub 'Entweder nichts markiert oder Markierung 
' ganz oben
Temp=List1.List(List1.ListIndex)
List1.List(List1.ListIndex) = List1.List(List1.ListIndex-1)
List1.List(List1.ListIndex-1) = Temp 'Vertauschen mit dem darüber liegenden 
' Eintrag
List1.ListIndex = List1.ListIndex-1 'Den ursprünglichen Eintrag wieder markieren
End Sub
 
Private Sub NachOben_Click()
Dim Temp As String
If List1.ListIndex<0 Or List1.ListIndex=List1.ListCount-1 Then Exit Sub _
  'Entweder nichts markiert oder Markierung ganz unten
Temp=List1.List(List1.ListIndex)
List1.List(List1.ListIndex) = List1.List(List1.ListIndex+1)
List1.List(List1.ListIndex+1) = Temp 'Vertauschen mit dem darunter liegenden 
' Eintrag
List1.ListIndex = List1.ListIndex+1 'Den ursprünglichen Eintrag wieder markieren
End Sub