Wanted to share my translation of the accepted answer in VB.net code ( @bubba )
This post helped me immensely and if someone needs the same in another language it is much easier to translate from this instead of the mathematical equation.
Ellipse center point is $(0,0)$ in this as well.
''' <summary>
''' Calculate a point on an ellipse from the width and height and an angle.
''' This calculates based on East Orientation (90 degree start point).
''' http://math.stackexchange.com/questions/475436/2d-point-projection-on-an-ellipse/475505#475505
''' </summary>
''' <param name="EllipseWidthRadius"></param>
''' <param name="EllipseHeightRadius"></param>
''' <param name="Angle">In Degrees from 90 deg/east</param>
Protected Friend Shared Function EllipseEdgePointByAngle(EllipseWidthRadius As Double, EllipseHeightRadius As Double, Angle As Double) As PointD
Dim ThetaRads As Double = ToRadians(Angle)
Dim K As Double = Ellipse_k(EllipseWidthRadius, EllipseHeightRadius, ThetaRads)
Dim X As Double = K * Math.Cos(ThetaRads)
Dim Y As Double = K * Math.Sin(ThetaRads)
Dim out As New PointD(X, Y)
Return out
End Function
Private Shared Function Ellipse_k(ByVal EllipseWidthRadius As Double, ByVal EllipseHeightRadius As Double, ByVal ThetaRads As Double) As Double
Dim bCosTh As Double = Math.Pow(EllipseHeightRadius, 2) * Math.Pow(Math.Cos(ThetaRads), 2)
Dim aSinTh As Double = Math.Pow(EllipseWidthRadius, 2) * Math.Pow(Math.Sin(ThetaRads), 2)
Dim K As Double = (EllipseWidthRadius * EllipseHeightRadius) / (Math.Sqrt(bCosTh + aSinTh))
Return K
End Function
Public Shared Function ToRadians(degrees As Double) As Double
Return degrees * Math.PI / 180
End Function