I have created a form using the CreateEllipticRgn Api.

I would like to add labels to this form at runtime if possible.

The code I have at the moment for the labels is
sub add_labels
dim cx as long, cy as long
dim i as integer
const deg as single = 0.01744
dim a as single
n=20
a=(360/n*deg)
cx=frmbull.scalewidth/2
cy=frmbull.scaleheight/2
for i = 1 to 20
if i > 0 then load lblBull(i)
lblBull(i).move cnt(cx+cx*sin(i*a)),cint(cy-cy*cos(i*a))
lblBull(i).visible=true
for each label in lblBull
with lblBull(i)
.fontsize = 18
.forecolor = vbblack
end sub

This code works on an ordinary form by placing the labels in a circle, however, this is not the desired effect.
If I divide the move formula by 2 then the labels are visible on the form but are more to the middle than the edge.
Cheers
Rab.