دوستان بیان کمک راهنمایی میخوام بیان دیگه

[پسراژدهاسوار]

یکی بهم بگه چطوری کاری کنم این توپ به همه جا بخوره فقط چپ و راست نشه دلم میخواد از پایین به سمت راست فرم بعد بالای فرم بعد چپ فرم بعد پایین بخوره ممنونDim j As Integer

Private Sub Form_Load()
j = 0
End Sub


Private Sub Timer1_Timer()
If j = 1 Then
If Shape1.Left + Shape1.Width < Form1.Width Then
Shape1.Left = Shape1.Left + 100
Else
j = 0
End If
End If
If j = 0 Then
If Shape1.Left > 0 Then
Shape1.Left = Shape1.Left - 100
Else
j = 1
End If
End If


End Sub

[rahnema1]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[پسراژدهاسوار]

دمت گرم عمل کرد