First of all create a module.
In the Module put:
Option Explicit Public bNowDraw As Boolean
Now on the main form put 4 command buttons.
Command1 - cmdExit
Command2 - cmdClear
Command3 - cmdSave
Command4 - cmdLoad
Make the buttons quite small and put them at the top of the form.
Now put this in the form code:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) bNowDraw = True CurrentX = X CurrentY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If bNowDraw = True Then Line -(X, Y) Else Exit Sub End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) bNowDraw = False End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdClear_Click() If MsgBox("Do you wish to save first?", vbYesNo + vbQuestion, "Save...") = vbYes Then SavePicture Form1.Image, "c:\picture.bmp" Form1.Cls Else Form1.Cls End If End Sub Private Sub cmdLoad_Click() Form1.Picture = LoadPicture("c:\picture.bmp") End Sub Private Sub cmdSave_Click() SavePicture Form1.Image, "c:\picture.bmp" MsgBox "Picture Saved", vbOKOnly + vbInformation, "Saved..." End Sub
That should be about it
You can add whatever features you like, when I had the basic program working I added colours to it so you can draw in better colours(black gets boring )
Have fun, more will come soon