انتخاب سطر ها در listview

[allaf2]

سلام.

من یک listview دارم. که تعداد نا مشخصی سطر داره. و 2 تا ستون هم داره.
میخوام با فشرده شدن command , از سطر اول شروع به انتخاب بکنه و با فشرده شدن مجدد command سطر دوم، و به همین ترتیب تا انتها.
و وقتی به آخر لیست رسید، دوباره از اول شروع کنه.



Private Sub Command8_Click()
On Error Resume Next
Dim x As Integer

Xi = Int(Rnd * List3.ListCount - 1) + 1
StrSpam = List3.List(Xi)

LV1.SetFocus
SendKeys "{Down}"
Id1 = LV1.SelectedItem
Text2.Text = Id1
Id2 = LV1.SelectedItem.SubItems(1)
Text7.Text = ID2
End Sub
این کد، کار مورد نظر منو انجام میده، اما به آخر لیت که میرسم دیگه نمتونم به اول لیست برگردم.

آیا این کاری که من کردم اصولی هست ؟ یا راه بهتری هم برای این کار هست؟

[mpmsoft]

این چه کد عجیب غزیبیه که نوشتی
از این روش استفاده کن


If Me.ListView1.SelectedItem.Index = Me.ListView1.ListItems.Count Then
ListView1.ListItems(1).Selected = True
Else
ListView1.ListItems(ListView1.SelectedItem.Index + 1).Selected = True
End If