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

Dim s1 As String = e.Form.Controls("TextBox1").value

Dim i,slen As Integer

Dim sc As Char() = s1.ToCharArray

slen = sc.length

Dim xy,yy,bj1,jdn1,jl,jk,jg,jjd As Double

xy = e.Form.Controls("NumericComboBox1").value    '圓心X坐標

yy = e.Form.Controls("NumericComboBox2").value    '圓心Y坐標

bj1= e.Form.Controls("NumericComboBox3").value    '圓半徑

jdn1=e.Form.Controls("NumericComboBox4").value    '起始角度

jl=e.Form.Controls("NumericComboBox5").value   '字间距

jjd=e.Form.Controls("NumericComboBox6").value   '字角度

jk=15 '字宽

jg=15 '字高

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

Dim rp As New prt.RenderParagraph()

For i=0 To slen

    rp = New prt.RenderParagraph()

    If i<slen Then

        rp.Content.AddText(sc(i))

        rp.Width = jk

        rp.Height = jg

        rp.x = xy-bj1 * math.cos((i / 36 ) * 2 * 3.14*jl/bj1-jdn1/bj1)

        rp.y = yy-bj1 * math.sin(( i / 36 ) * 2 * 3.14*jl/bj1-jdn1/bj1)

        rp.Style.TextAngle = iif(e.Form.Controls("CheckBox1").checked,0,i-jjd)

        doc.Body.Children.Add(rp)   

    End If

Next

Doc.Preview() '预览报表