Dim Drawing As Boolean
Private Sub Command1_Click()
Picture1.Cls
End Sub
Private Sub Command2_Click()
CommonDialog1.Action = 3
Picture1.ForeColor = CommonDialog1.Color
End Sub
Private Sub Form_Load()
Picture1.BackColor = vbWhite
Drawing = False
End Sub
Private Sub Option1_Click()
Picture1.DrawWidth = 1
End Sub
Private Sub Option2_Click()
Picture1.DrawWidth = 5
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Drawing = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Drawing Then
If Button = vbLeftButton Then
If Option1.Value Then
Picture1.DrawWidth = 1
ElseIf Option2.Value Then
Picture1.DrawWidth = 5
Else
Picture1.DrawWidth = 1
End If
Picture1.ForeColor = CommonDialog1.Color
ElseIf Button = vbRightButton Then
Picture1.DrawWidth = 10
Picture1.ForeColor = Picture1.BackColor
End If
Picture1.PSet (X, Y)
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Drawing = False
End Sub