Visual Basic - Mover Elementos List Box

Que tal ando viendo la forma de crear un formulario que esta compuesto por un list box y lo que quiero lograr hacer es que formulario se parezca al formulario del Editor de menus o sea que tenga cuatro botones arriba, abajo, derecha e izquiera y que se comporte igual que el list box del editor de menues.
Si alguien me puede ayudar se lo agradesco.
NicoV.

Jeje.. aqui lo hize.. ahi te va.. funciona muy bien

Ocupas 2 ListBox (List1 y List2). En el List1 pon varios elementos, el List2 puede ser Visible = False

Yo puse "Linea 1", "Linea 2", etc...

Ocupas 4 botones.. en los nombres va que hace cada uno

El codigo se ve largo, pero en si esta muy sencillo

Dim Seleccionado As Integer

Private Sub btn_Abajo_Click()

If List1.ListIndex < List1.ListCount - 1 Then

Seleccionado = List1.ListIndex

List2.Clear

For i = 0 To Seleccionado - 1
List2.AddItem List1.List(i)
Next i

List2.AddItem List1.List(Seleccionado + 1)
List2.AddItem List1.List(Seleccionado)

For i = Seleccionado + 2 To List1.ListCount
If List1.List(i) <> "" Then
List2.AddItem List1.List(i)
End If
Next i

List1.Clear

For i = 0 To List2.ListCount
If List2.List(i) <> "" Then
List1.AddItem List2.List(i)
End If
Next i

List1.Selected(Seleccionado + 1) = True

End If
End Sub

Private Sub btn_Arriba_Click()
Dim Seleccionado As Integer

If List1.ListIndex > 0 Then

Seleccionado = List1.ListIndex

List2.Clear

For i = 0 To Seleccionado - 2
List2.AddItem List1.List(i)
Next i

List2.AddItem List1.List(Seleccionado)
List2.AddItem List1.List(Seleccionado - 1)

For i = Seleccionado + 1 To List1.ListCount
If List1.List(i) <> "" Then
List2.AddItem List1.List(i)
End If
Next i

List1.Clear

For i = 0 To List2.ListCount
If List2.List(i) <> "" Then
List1.AddItem List2.List(i)
End If
Next i

List1.Selected(Seleccionado - 1) = True

End If
End Sub

Private Sub btn_Derecha_Click()

Seleccionado = List1.ListIndex

List2.Clear

For i = 0 To Seleccionado - 1
List2.AddItem List1.List(i)
Next i

List2.AddItem "..." & List1.List(Seleccionado)

For i = Seleccionado + 1 To List1.ListCount
If List1.List(i) <> "" Then
List2.AddItem List1.List(i)
End If
Next i

List1.Clear

For i = 0 To List2.ListCount
If List2.List(i) <> "" Then
List1.AddItem List2.List(i)
End If
Next i

List1.Selected(Seleccionado) = True

End Sub

Private Sub btn_Izquierda_Click()

Seleccionado = List1.ListIndex

List2.Clear

For i = 0 To Seleccionado - 1
List2.AddItem List1.List(i)
Next i

If Mid(List1.List(Seleccionado), 1, 3) = "..." Then
List2.AddItem Mid(List1.List(Seleccionado), 4)
Else
List2.AddItem List1.List(Seleccionado)
End If

For i = Seleccionado + 1 To List1.ListCount
If List1.List(i) <> "" Then
List2.AddItem List1.List(i)
End If
Next i

List1.Clear

For i = 0 To List2.ListCount
If List2.List(i) <> "" Then
List1.AddItem List2.List(i)
End If
Next i

List1.Selected(Seleccionado) = True

End Sub

Anda bien muchas gracias!
NicoV.