SpriteCollision Event This event is fired when two sprites collide. Game1_SpriteCollision(ByVal lSpriteNum1 As Long, ByVal lSpriteNum2 As Long, ByVal x As Integer, ByVal y As Integer) lSpriteNum1 Long. Unique sprite ID of the first sprite involved in the collision. lSpriteNum2 Long. Unique sprite ID of the second sprite involved in the collision. x Integer. X coordinate of the center point of the collision. y Integer. Y coordinate of the center point of the collision. To diminish the rectangle that triggers collision events, use the SpriteDiminishCollisionRect method. Private Sub Game1_SpriteCollision(ByVal lSpriteNum1 As Long, ByVal lSpriteNum2 As Long, ByVal x As Integer, ByVal y As Integer) If (lSpriteNum1 = SPRITE_STAR And lSpriteNum2 = SPRITE_MOON) then ' do processing... End If End Sub