如何在PictureBox中画直线、矩形、圆？

[untitled12]

要求：在PictureBox中点鼠标左键拉到任一点便产生一直线，矩形，和一圆。
有原码更好？
请教？

[waterytimes]

Dim X1 As Long
Dim Y1 As Long

Dim X2 As Long
Dim Y2 As Long


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
X2 = X
Y2 = Y

Picture1.Line (X1, Y1)-(X2, Y2)
Picture1.Line (X1, Y1)-(X2, Y2), , B
Picture1.Circle ((X1 + X2) / 2, (Y1 + Y2) / 2), Abs(X2 - X1) / 2, (X1 / X2) / (Y1 / Y2)

End Sub

我刚来,初学,以后多照顾

[xhxh]

上面的兄弟写的很好啊

[wefhl]

上面这个方法不错啊,我以前也是这样做的，不过最好再做边界检查。

[Renkey]

楼上的兄弟们都不赖，不过可以设置颜色哦。
当然给圆来个填充色也行

[waterytimes]

直线和矩形只要line就可以了吧,在Form_MouseDown记录鼠标按下的位置坐标,在Form_MouseUp记录鼠标抬起的位置坐标,line 加 B 就是矩形,否则直线.使用Circle做园,只不过取中间值就可以了

[waterytimes]

Form应该是PictureBox.

[untitled12]

大哥的意思小弟有点听懂了，不过，小弟是初学者，恳请大哥，写几下代码，好吗？
小弟先谢大哥了！