ListBox med op og ned function ?

Hejsa,

Jeg er ved at lave en op/ned function på en listbox, men kan ikke helt få det til at spille. Det jeg vil er at liste en række ord i en listbox hvor så en bruger kan rykke et ord op el. ned ved hjælp af nogle knapper. Jeg har lavet følgende som ikke helt virker :

Mine sub's til håndtering af op og ned rykning :

    Private Sub btn_MoveUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_MoveUp.Click
        '--- Flytter op
        MoveUp(ListBox1)
    End Sub

    Private Sub btn_MoveDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_MoveDown.Click
        '--- Flytter ned
        MoveDown(ListBox1)
    End Sub

Mine sub's der så skulle flytte enten op eller ned :

    Private Sub MoveDown(ByVal listBox As ListBox)
        If listBox Is Nothing Then
            Throw New ArgumentNullException("listBox")
        End If
        Dim item As ListItem = listBox.SelectedItem
        If Not (item Is Nothing) Then
            Dim idx As Integer = listBox.SelectedIndex
            If idx < listBox.Items.Count - 1 Then
                listBox.Items.RemoveAt(idx)
                listBox.Items.Insert(idx, item)
            End If
        End If
    End Sub

    Private Sub MoveUp(ByVal listBox As ListBox)
        If listBox Is Nothing Then
            Throw New ArgumentNullException("listBox")
        End If
        Dim item As ListItem = listBox.SelectedItem
        If Not (item Is Nothing) Then
            Dim idx As Integer = listBox.SelectedIndex
            If idx > 0 Then
                listBox.Items.RemoveAt(idx)
                listBox.Items.Insert(idx, item)
            End If
        End If
    End Sub

Jeg ved ikke helt hvad jeg mangler for at det virker, men måske en kan hjælpe mig med det ?

/Websam