Circles, Textboxes, and Lines! On, My!

[Joseph]

I am trying to make a Report with the following Code:

Dim sngHCtr As Single, sngVCtr As Single
Dim sngRadius As Single
Dim sngStart As Single, sngEnd As Single

' Draw textbox above last ellipse
Me.Text6.Value = "Violation"
Me.Text6.Top = 13000
Me.Text6.Left = Me.ScaleWidth / 2

sngHCtrLeft = (Me.ScaleWidth / 3) - 720 ' Horizontal center.
sngHCtrRight = ((Me.ScaleWidth / 3) * 2) + 720 ' Horizontal center.
sngVCtr = 720 ' Vertical center.
sngRadius = 2000 ' Circle radius.
' Draw Top Left Ellipse
Me.Circle (sngHCtrLeft, sngVCtr), (sngRadius), , , , 0.3
' Draw Top Right Ellipse
Me.Circle (sngHCtrRight, sngVCtr), (sngRadius), , , , 0.3

sngHCtr1One = (Me.ScaleWidth / 5) ' Horizontal center.
sngHCtr1Two = ((Me.ScaleWidth / 5) * 2) - 300 ' Horizontal center.
sngHCtr1Three = ((Me.ScaleWidth / 5) * 3) + 300 ' Horizontal center.
sngHCtr1Four = ((Me.ScaleWidth / 5) * 4) ' Horizontal center.
sngVCtr = 4000 ' Vertical center.
sngRadius = 1000 ' Circle radius.
Me.Circle (sngHCtr1One, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr1Two, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr1Three, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr1Four, sngVCtr), (sngRadius), , , , 0.3
Me.Line (sngHCtrLeft - 500, 1440)-(sngHCtr1One, 3600)
Me.Line (sngHCtrLeft + 500, 1440)-(sngHCtr1Two, 3600)
Me.Line (sngHCtrRight - 500, 1440)-(sngHCtr1Three, 3600)
Me.Line (sngHCtrRight + 500, 1440)-(sngHCtr1Four, 3600)


sngHCtr2One = (Me.ScaleWidth / 5) ' Horizontal center.
sngHCtr2Two = ((Me.ScaleWidth / 5) * 2) - 300 ' Horizontal center.
sngHCtr2Three = ((Me.ScaleWidth / 5) * 3) + 300 ' Horizontal center.
sngHCtr2Four = ((Me.ScaleWidth / 5) * 4) ' Horizontal center.
sngVCtr = 7000 ' Vertical center.
sngRadius = 1000 ' Circle radius.
Me.Circle (sngHCtr2One, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr2Two, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr2Three, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr2Four, sngVCtr), (sngRadius), , , , 0.3
Me.Line (sngHCtr2One, 4440)-(sngHCtr2One, 6600)
Me.Line (sngHCtr2Two, 4440)-(sngHCtr2Two, 6600)
Me.Line (sngHCtr2Three, 4440)-(sngHCtr2Three, 6600)
Me.Line (sngHCtr2Four, 4440)-(sngHCtr2Four, 6600)

sngHCtr3One = (Me.ScaleWidth / 5) ' Horizontal center.
sngHCtr3Two = ((Me.ScaleWidth / 5) * 2) - 300 ' Horizontal center.
sngHCtr3Three = ((Me.ScaleWidth / 5) * 3) + 300 ' Horizontal center.
sngHCtr3Four = ((Me.ScaleWidth / 5) * 4) ' Horizontal center.
sngVCtr = 10000 ' Vertical center.
sngRadius = 1000 ' Circle radius.
Me.Circle (sngHCtr3One, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr3Two, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr3Three, sngVCtr), (sngRadius), , , , 0.3
Me.Circle (sngHCtr3Four, sngVCtr), (sngRadius), , , , 0.3
Me.Line (sngHCtr3One, 7440)-(sngHCtr3One, 9600)
Me.Line (sngHCtr3Two, 7440)-(sngHCtr3Two, 9600)
Me.Line (sngHCtr3Three, 7440)-(sngHCtr3Three, 9600)
Me.Line (sngHCtr3Four, 7440)-(sngHCtr3Four, 9600)

sngHCtr = Me.ScaleWidth / 2 ' Horizontal center.
sngVCtr = 13000 ' Vertical center.
sngRadius = 3000 ' Circle radius.
' Draw Bottom Ellipse
Me.Circle (sngHCtr, sngVCtr), (sngRadius), , , , 0.3
Me.Line (sngHCtr1One, 10440)-(sngHCtr - 1440, 12000)
Me.Line (sngHCtr1Two, 10440)-(sngHCtr - 1240, 12000)
Me.Line (sngHCtr3Three, 10440)-(sngHCtr + 1240, 12000)
Me.Line (sngHCtr3Four, 10440)-(sngHCtr + 1440, 12000)

It will draw the circles and the lines, but when I need to modify the
textbox, it creates it on a new page.

How can I add textboxes inside/above the ellipses?