求救！计算问题, 再线等。。

Question

Private Sub Form_Load()
    Dim Position As POINTAPI
    Dim Linition As POINTAPI
    Dim i As Long, p As Double
    
    Cls
    
    Position.X = Me.ScaleWidth / 2
    Position.y = Me.ScaleHeight / 2
    
    Dim PI As Single
    Dim S As Integer
    Dim L As Integer
    Dim X As Integer
    
    For i = 2 To 5
        p = i * 18
        Ellipse Me.hdc, Position.X - p, Position.y - p, Position.X + p, Position.y + p
    Next
    
    
    For i = 0 To 359 Step 15
        PI = (3.14156 / 180) * i
        Linition.X = Position.X + (5 * 18 * Sin(PI))
        Linition.y = Position.y - (5 * 18 * Cos(PI))
        
        MoveToEx Me.hdc, Position.X, Position.y, ipPoint
        LineTo Me.hdc, Linition.X, Linition.y
    Next
    
    For L = 1 To 3
        X = 24 * L
    
        For i = 90 To 445 Step 15
            S = IIf(i >= 360, i - 360, i)   '角度}
            PI = (3.14156 / 180) * S
        
            Linition.X = Position.X + ((L + 1) * 18 * Sin(PI + 360 / 24)) * 1.1
            Linition.y = Position.y - ((L + 1) * 18 * Cos(PI + 360 / 24)) * 1.1
            
            TextOut Me.hdc, Linition.X - TextWidth(CStr(X)) / 2, _
                            Linition.y - TextHeight(CStr(X)) / 2, CStr(X), Len(CStr(X))
                            
            X = X - 1
        Next
    Next
End Sub