Private Sub MoveEnemy
Dim v As B2Vec2 = Mouse.Body.Position.CreateCopy
v.SubtractFromThis(Enemy.Body.Position)
If v.Length > 0.7 Then
v.NormalizeThis
Enemy.Body.LinearVelocity = v
Enemy.Body.SetTransform(Enemy.Body.Position, ATan2(v.Y, v.X) + cPI / 2)
Else
Enemy.Body.LinearVelocity = X2.CreateVec2(0, 0)
Enemy.Body.AngularVelocity = 0
End If
End Sub