Hur gör jag för att flytta items i en listbox upp och ner?
ska ha två knappar, och tryckar jag på t.ex upp samtidigt som
någon rad är markerad så flyttar den upp.
Hur gör man detta?

Om inte jag missminner mig finns det ett sådant exempel på filarean eller under tips och tricks. Enda skillnaden är att det exemplet flyttar posten mha musen.

//Emma

Ett fulhack

OBS Inga felkontroller
Private Sub Command1_Click(Index As Integer)
Dim sx As String, sy As String
Select Case Index
Case 0
sx = List1.List(List1.ListIndex)
sy = List1.List(List1.ListIndex - 1)

List1.List(List1.ListIndex) = sy
List1.List(List1.ListIndex - 1) = sx
List1.ListIndex = List1.ListIndex - 1
Case 1
sx = List1.List(List1.ListIndex)
sy = List1.List(List1.ListIndex + 1)

List1.List(List1.ListIndex) = sy
List1.List(List1.ListIndex + 1) = sx
List1.ListIndex = List1.ListIndex + 1
End Select
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
List1.AddItem "Item " & i
Next
End Sub