try this
Private Sub UpClick()
If listBox1.ListIndex > 0 Then
listBox1.AddItem(listBox1.Text, listBox1.ListIndex - 1)
listBox1.ListIndex = (listBox1.ListIndex - 2)
listBox1.RemoveItem(listBox1.ListIndex + 2)
End If
End Sub
Private Sub DownClick()
If (listBox1.ListIndex <> -1) AndAlso (listBox1.ListIndex < listBox1.ListCount - 1) Then
listBox1.AddItem(listBox1.Text, listBox1.ListIndex + 2)
listBox1.ListIndex = listBox1.ListIndex + 2
listBox1.RemoveItem(listBox1.ListIndex - 2)
End If
End Sub