Ok this is a simple scribble pad, when you run it you can... scribble 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. Call them: 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