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

یکی بهم بگه چطوری کاری کنم این توپ به همه جا بخوره فقط چپ و راست نشه دلم میخواد از پایین به سمت راست فرم بعد بالای فرم بعد چپ فرم بعد پایین بخوره ممنون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

کد:

---

dim x1,y1,dx1,dy1 as integer
Private Sub Form_Load()
  x1=Shape1.Left
  y1=Shape1.Top
  dx1=100
  dy1=100
End Sub
Private Sub Timer1_Timer()
  x1=x1+dx1
  y1=y1+dy1
  If (x1<0 Or x1 >(Me.Width-Shape1.Width)) Then
    x1=x1-(2*dx1)
    dx1=-dx1
  End If
  If ( y1<0 Or y1 >Me.Height-Shape1.Heigt) Then
    y1=y1-(2*dy1)
    dy1=-dy1
  End If
    Shape1.Top=y1
    Shape1.Left=x1
End Sub

---

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