Sub Globals
MouseDown=False
Pencil=0
Brush=0
Mouse=0
x1=0
y1=0
x2=0
y2=0
End Sub
Sub App_Start
frmMain.Show
End Sub
Sub Pencil_Click
Pencil=1
Brush=0
End Sub
Sub Brush_Click
Pencil=0
Brush=1
End Sub
Sub frmMain_MouseMove (x,y)
If Pencil=1 AND Mouse=1 Then
x2=x
y2=y
frmMain.Line(x1,y1,x2,y2,0,0,0)
If x1<>x2 OR y1<>y2 Then
x1=x2
y1=y2
End If
End If
If Brush=1 AND Mouse=1 Then
x2=x
y2=y
frmMain.Circle(x2,y2,3,0,0,0,f)
End If
End Sub
Sub frmMain_MouseDown (x,y)
x1=x
y1=y
Mouse=1
End Sub
Sub frmMain_MouseUp (x,y)
Mouse=0
End Sub