مشکل در اجرا شدن برنامه

[mohammad2407]

سلام دوستان من تخصصی در زمینه وی بی ندارم

ممنون میشم مشکل کد زیر به من بگین

کجا رو اشتباه نوشتم

وقتی برنامه رو اجرا میکنم خطا میده

Private Sub Command1_Click()
Dim num As Integer
num = Val(Text1.Text)
For i = num To 1
If (num Mod 5) = 0 Then
List1.AddItem (i)
End If
i = i - 1
End Sub

[rahnema1]

Private Sub Command1_Click()
Dim num As Integer
num = CInt(Text1.Text)
For i As Integer = num To 1 step -1
If (num Mod 5) = 0 Then
List1.AddItem (i)
End If
next
End Sub