RE:Cambiar el orden de un item
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!