InputMouseDown Event This event is fired when the user places the stylus on the screen. Game1_InputMouseDown(ByVal x As Integer, ByVal y As Integer) x Integer. X coordinate of stylus. y Integer. Y coordinate of stylus. Public Sub Game1_InputMouseDown(ByVal x As Integer, ByVal y As Integer) ' set an angle of soldier sprite towards stylus tap Dim iSoldierX As Integer, iSoldierY As Integer Game1.SpriteGetPositionEx SPRITE_SOLDIER, 8, iSoldierX, iSoldierY m_iLastAngleSoldier = Game1.UtilGetAngleBetween(iSoldierX, iSoldierY, x, y) m_bMoving = True End Sub