Code:
If (Ped.Top + Ped.Height >= Lopta.Top And Ped.Top < Lopta.Top + Lopta.Height) And _
(Ped.Left + Ped.Width >= Lopta.Left And Ped.Left < Lopta.Left + Lopta.Width) Then 'Detekcija sudara sa predmetom
...'ovde tvoj kod
...'ovde tvoj kod
End If
Ovde je ped objekat, a kod proverava da li se on sudarijo sa loptom. Ako jeste izvrsava neki kod. Ti mozes da promenis ime objekta, umesto 'ped' stavi nesto svoje, umesto 'lopta' takodje. Ovaj kod smestis u tajmer sa intervalom 50 ili koliko ti vec treba. Nadam se da sam pomogao.