主题：請教,文字圍繞圓旋轉有何簡便代碼?

Dim s1 As String = "BRAND 牌 名 務 服 港 香   HONG KONG TOP SERVICE"

Dim xy,yy,bj1,jdn1 As Double

xy = 100   '圓心X坐標

yy = 90      '圓心Y坐標

bj1= 15     '圓半徑

jdn1=20    '起始角度

Dim doc As New PrintDoc '定义一个报表

Dim rm As New prt.RenderImage() '定义一个图片对象

rm.Image = GetImage("圆心图片.BMP") '

rm.Width = 28

rm.Height =28

rm.x=xy-10

rm.y=yy-10

doc.Body.Children.Add(rm) 

Dim rp As New prt.RenderParagraph()

For Each c As Char In s1

    rp = New prt.RenderParagraph()

    rp.Content.AddText(c)

    rp.Width = 6

    rp.Height = 6

    jdn1- = Int(3600/s1.Length)/10-0.1   

     rp.x = xy+bj1*Math.Cos(jdn1*Math.PI/180)

    rp.y = yy+bj1*Math.Sin(jdn1*Math.PI/180)       

    rp.Style.TextAngle = iif(asc(c)>64,90,-90) -jdn1

    doc.Body.Children.Add(rp)   

Next

Doc.Preview() '预览报表