[VB_Coder]

السلام عليكم

- هذا الكود بعد تعديله . بحث إذا لامس الـ Player أي جهة من جهات الShape يتم إرجاع الـ Player إلى نقطة البداية :

كود :

Private Sub Timer1_Timer()

Dim t, b, l, r As Integer
Dim t2, b2, l2, r2 As Integer

t = Shape1.Top
b = Shape1.Top + Shape1.Height
l = Shape1.Left
r = Shape1.Left + Shape1.Width

t2 = Player.Top
b2 = Player.Top + Player.Height
l2 = Player.Left
r2 = Player.Left + Player.Width

If (t2 >= t And t2 <= b) And (l2 >= l And l2 <= r) Then
   Player.Top = 600
   Player.Left = 250
ElseIf (b2 >= t And b2 <= b) And (r2 >= l And r2 <= r) Then
   Player.Top = 600
   Player.Left = 250
End If

End Sub

- تحياتي .