VB如何在做画笔？？？

Question

就象在普通的作图软件 如何做出画笔！！？？
LINE函数。在FORM的窗体上画  又需要在哪个事件做。请教高手。。请详细见教！！
谢谢

Answer 1

Dim is_draw As Boolean
Private Sub Form_Load()
  is_draw = False
End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Form1.PSet (X, Y)
  is_draw = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If is_draw Then Line -(X, Y)
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 is_draw = False
End Sub
这是简单的画线，其他圆，正方形可以类似设计