[RESOLVED] Listview next button

[matrik02]

I have items show in the listview show as report like this

3109

3110

.....

.....

When I click at down button, It suppose hight light the 3110 and 3109 remains in its position... the problem is,It move the items 3109 to 3110 when I click the button. I only want to move the highlight not move the items.The record remains at its position. What the problem with this code?

' down BUTTON

If ListView1.SelectedItem.Index = ListView1.ListItems.Count Then
Set ListView1.DropHighlight = ListView1.ListItems(ListView1.ListItems.Count)
Else
    Set itmx = ListView1.ListItems.Add(ListView1.SelectedItem.Index + 2, , ListView1.SelectedItem.Text)
        itmx.SubItems(1) = ListView1.SelectedItem.SubItems(1)
        itmx.SubItems(2) = ListView1.SelectedItem.SubItems(2)
        itmx.SubItems(3) = ListView1.SelectedItem.SubItems(3)
        itmx.SubItems(4) = ListView1.SelectedItem.SubItems(4)
        itmx.SubItems(5) = ListView1.SelectedItem.SubItems(5)
        itmx.SubItems(6) = ListView1.SelectedItem.SubItems(6)
 
        ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
    Set ListView1.SelectedItem = ListView1.ListItems(ListView1.SelectedItem.Index + 1)
    Set ListView1.DropHighlight = ListView1.SelectedItem

End If

[Al42]

Try this

If ListView1.SelectedItem.Index = ListView1.ListItems.Count Then
Set ListView1.DropHighlight = ListView1.ListItems(ListView1.ListItems.Count)
Else
    Set ListView1.SelectedItem = ListView1.ListItems(ListView1.SelectedItem.Index + 1)
    Set ListView1.DropHighlight = ListView1.SelectedItem
End If