-----------------------------------------**** **---------------分针转动轨迹----------------------------**** s=m with thisform.line2 .BorderWidth=3 DO CASE CASE 0=
.Width =ABS(SIN(pi*s/30)*100) .height=ABS(cos(pi*s/30)*100) .top=150 .Left=150-ABS(SIN(pi*s/30)*100) CASE 45= endwith **---------------时针转动轨迹----------------------------**** **-------------------------------------------------------**** thisform.Refresh ***刷新表单------------------------------------------------endpro