[RESOLVED] Move Item in the listbox

[matrik02]

How to move Item from the first index to second index one by one until last index. I have select the item. I want to move it down,just change the position. Code below does not works

For c = 0 To ListBox1.ListCount - 1
    
    If ListBox1.Selected(c) = True Then
                Dim idx As Integer
                idx = ListBox1.ListIndex
                If ListBox1.ListIndex > 0 Then
                ListBox1.ListIndex = idx - 1
                
                End If
                
    End If
Next