[RESOLVED] Not record in the listview

[matrik02]

I got error while try to move the highlighted in the listvew when no record in the listview. How I can ask the user that no record in the listview if they to push the move button?

Private Sub Command8_Click()
If ListView1.SelectedItem.Index = 1 Then
Set ListView1.DropHighlight = ListView1.SelectedItem
ListView1.SelectedItem.EnsureVisible
Command8.Enabled = False
Else
'bila di akhir
If ListView1.SelectedItem.Index = ListView1.ListItems.Count Then

    Set ListView1.SelectedItem = ListView1.ListItems(ListView1.SelectedItem.Index - 1)
    Set ListView1.DropHighlight = ListView1.SelectedItem
    ListView1.SelectedItem.EnsureVisible
Command9.Enabled = True
Else
Command9.Enabled = True
    Set ListView1.SelectedItem = ListView1.ListItems(ListView1.SelectedItem.Index - 1)
    Set ListView1.DropHighlight = ListView1.SelectedItem
    ListView1.SelectedItem.EnsureVisible
End If
End If
End Sub