[ű]
=Բν
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[Attachment]
Number=0
[]
Sub Main()    'űڴд
    Dim w,h,l
    HSys.GetScreen w,h,l 
    drawcircle w,h
    
End Sub 'ű

Sub DrawCircle(byval a,byval b)
    Dim x0,n,x,y  
    print a 
    'GetScreenResolution(a,b)
    x0=a/2:n=1:y0=b/2
    Do While n<85
        x=x0+4*(cos(n)+n*sin(n))
        y=y0+3*(sin(n)-n*cos(n))
        HMouse.MoveTo X,Y
        
        Delay 10
        n=n+0.3
        
    Loop
End Sub
[]
