如题！  本人想在窗口内搞个小钟！

不用 circle 这个函数！可以实现吗！》？

有代码可以发出来看看吗！？

不circle那就用画点的函数吧，把圆周一个点一个点的画出来

可以用图形.

我用circle语句时圆心的坐标X方向是对的,但Y方向不对.这是为什么.
    Picture1.Scale (-10, 10)-(10, -10)
    Picture1.DrawWidth = 1
Picture1.Circle (0, 0), r2, vbRed, (360 + α1) / 180 * pi - θ1, (α2) / 180 * pi - θ1
    '大圆弧
    Picture1.Circle (cx2, cy2), qv, vbRed, (360 + α2 + β2 + γ1) / 180 * pi, (α2 + β2 + γ2) / 180 * pi
本来这两段圆弧能连上,但是连不上是为什么?
急急急

比如要在窗体上画圆，Text1供输入角度（不得超过360，否则出错），Command1画图：

Private Sub Command1_Click()
Const rPI As Single = 3.14159265358979 '圆周率
Me.Cls '清屏
Me.Circle (1400, 1400), 1000, , 0, Val(Text1.Text) / 180 * rPI
End Sub
============================================================
汗~我对一无所知……
我写的明显是VB6的程序……
============================================================
Circle (x, y), radius, [color], [start], [end] [, aspect]

(x,y) 代表圆心
radius 代表半径
color 代表颜色
start 代表起始弧度
end 代表结束弧度 *start与end差距不能大于360

比如在窗体上画圆，Text1输角度，Command1画图：

Private Sub Command1_Click()
Const rPI As Single = 3.14159265358979 '圆周率
Me.Cls '清屏
Me.Circle (1400, 1400), 1000, , 0, Val(Text1.Text) / 180 * rPI
End Sub