Question

VB.6中在窗体中画图时，不用代码，怎么用鼠标直接画一个小圈，比如可以画直线，圆圈可以画吗？

需要表示信号灯，用圆圈表示，我是初学者，谢谢指点！！！

Answer 1

可以啊，你用shape控件就行，还可调整颜色：
注意：shape1.backcolor=vbred
shape1.backstyle=1
shape1.fillstyle=1
以上可以直接在shape1中设置，就不用编写上述代码了

Answer 2

窗体的MouseDown事件

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Circle (X, Y), 500
End Sub

这样程序运行之后，你在窗体上任意位置点一下，就会出现一个半径为500的小圆