###
man muss halt alles optimistisch sehen !

Public Sub gen_UpDown_DownClick(list_x as ListBox)
Dim t As Integer
Dim i As Integer
 
Dim direction() As String
 
ReDim direction(list_x.ListCount)
For i = 0 To list_x.ListCount - 1
    direction(i) = list_x.List(i)
    If list_x.Selected(i) = True Then
        t = i
    End If 
Next 
end sub

Private Sub UpDown1_DownClick()
gen_UpDown_DownClick (Me.List_reorder)
End Sub