08-29-2010, 11:28 PM
collision detection vb2008
Code:
Public Function Collision(ByVal obj1 As Object, ByVal obj2 As Object)
Dim ret As Boolean = False
If obj1.Bounds.IntersectsWith(obj2.Bounds) = True Then
Return True
Else
Return False
End If
End Function