Visual Basic.NET - Cambiar el orden de un item

Hola tengo un problema no encuentro como poder cambiar el orden de un item en un listbox con un boton para subir el item y otro para bajar el item.
Gracias

Private Sub btnSubir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubir.Click
Dim intIndice As Integer = Me.lstElementos.SelectedIndex
If intIndice > 0 Then
Me.lstElementos.Items.Insert(intIndice - 1, Me.lstElementos.SelectedItem)
Me.lstElementos.Items.RemoveAt(intIndice + 1)
Me.lstElementos.SelectedIndex = intIndice - 1
End If
End Sub

Private Sub btnBajar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBajar.Click
Dim intIndice As Integer = Me.lstElementos.SelectedIndex
If intIndice < Me.lstElementos.Items.Count - 1 Then
Me.lstElementos.Items.Insert(intIndice + 2, Me.lstElementos.SelectedItem)
Me.lstElementos.Items.RemoveAt(intIndice)
Me.lstElementos.SelectedIndex = intIndice + 1
End If
End Sub

Espero te sea util.
Salu2!