Menggambar di Form

Dim bDraw As Boolean

Private Sub Command1_Click()
Form1.Cls
End Sub
-----------------------------------------------------------------------------------------
Private Sub Form_Load()
bDraw = False
End Sub
-----------------------------------------------------------------------------------------
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Me.CurrentX = X
Me.CurrentY = Y
bDraw = True
End Sub
-----------------------------------------------------------------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If bDraw And Button = vbLeftButton Then
Me.Line -(X, Y)
End If
End Sub
-----------------------------------------------------------------------------------------
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
bDraw = False
End Sub