UtilGetAngleBetween Property Computes the angle between two points. iValue = Game1.UtilGetAngleBetween(x1, y1, x2, y2) iValue Integer. The angle between the points (x1,y1) and (x2,y2). x1 Integer. X coordinate of the first point. y1 Integer. Y coordinate of the first point. x2 Integer. X coordinate of the second point. y2 Integer. Y coordinate of the second point. This shouldn't be used for timing a game. Instead, use the TimerFired event and TimerStartTimer method. Public Sub Game1_SpriteCollisionMouse(ByVal lSpriteNum As Long, ByVal x As Integer, ByVal y As Integer) ... Game1.SpriteGetPositionEx SPRITE_SOLDIER, 8, iSoldierX, iSoldierY m_iLastAngleSoldier = Game1.UtilGetAngleBetween(iSoldierX, iSoldierY, x, y) iDirection = Round(m_iLastAngleSoldier / 45) Mod 8 Game1.SpriteSetFrameRange SPRITE_SOLDIER, iDirection * 9, iDirection * 9 + 7, True ... End Sub