VB使用Circle方法画弧和扇形.rar

VB使用Circle方法画弧和扇形，VB6.0画图形，几何图形。 　　Constpi=3.14159'常量声明 　　PrivateSubForm_Click() 　　ForeColor=vbRed'设置窗体前景色 　　DrawWidth=1'设置线宽 　　FillStyle=0'设置填充样式 　　FillColor=vbCyan'填充颜色 　　Circle(1500,1500),1000,,-1/4*pi,-pi'画扇形 　　Circle(2000,500),1000,,3/2*pi,2*pi