Private Sub Form_Load()
Const PI = 3.14159265
Const THE_TEXT = "Here is some text along an ellipse"

Dim cx As Single
Dim cy As Single
Dim theta As Single
Dim dtheta As Single
Dim xradius As Single
Dim yradius As Single
Dim i As Integer

    cx = ScaleWidth / 2
    cy = ScaleHeight / 2
    theta = PI
    dtheta = PI / Len(THE_TEXT)
    xradius = ScaleWidth * 0.45
    yradius = ScaleHeight * 0.45

    For i = 1 To Len(THE_TEXT)
        CurrentX = cx + xradius * Cos(theta)
        CurrentY = cy - yradius * Sin(theta)
        Print Mid$(THE_TEXT, i, 1);
        theta = theta - dtheta
    Next i
End Sub