Sub Process_OnPropertyChanged(ByVal Item, ByVal value)   

Dim objCtr,objEllip,ARCLINE

Dim ixCenter,iyCenter,ixC,iyC

    Set objCtr=ScreenItems("圆1") 

    Set objEllip=ScreenItems("椭圆1") 

    ixCenter=objEllip.Left+objEllip.RadiusWidth

    iyCenter=objEllip.Top+objEllip.RadiusHeight

   '  获取旋转对象0度时的圆心坐标 

    iyC=95*Sin(item.Process/180*3.1415926)

    ixC=165*Cos(item.Process/180*3.1415926)

    objCtr.Left=ixCenter+ixc-objCtr.Radius

    objCtr.Top=iyCenter+iyC-objCtr.Radius

    ScreenItems("静态文本1").text=value

End Sub