Arrangere listbox indhold med op/ned knapper

Private Sub CmdNed_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
A = List1.List(i)
List1.List(i) = List1.List(i + 1)
List1.List(i + 1) = A
End If
Next
End Sub

Private Sub CmdOp_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
A = List1.List(i)
List1.List(i) = List1.List(i - 1)
List1.List(i - 1) = A
End If
Next
End Sub

nu følger selected med også

If List1.Selected(I) Then
A = List1.List(I)
List1.List(I) = List1.List(I + 1)
List1.List(I + 1) = A
List1.Selected(I + 1) = True
Exit Sub
End If
Next
End Sub

Private Sub CmdOp_Click()
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
If I = 0 Then Exit Sub
A = List1.List(I)
List1.List(I) = List1.List(I - 1)
List1.List(I - 1) = A
  List1.Selected(I - 1) = True
  Exit Sub
End If
Next
End Sub

Det virker jo fint !!

Mange tak for det :D

tak for point ;-))