Option Explicit
Dim colore As String

Private Sub Command1_Click()
Dim a As String
a = MsgBox("costruito da stejano", , "stejano")
End
End Sub

Private Sub Command2_Click()
Form1.PrintForm
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo errorecolore
If Button = 1 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), colore
End If
If Button = 2 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(15)
End If
Exit Sub
errorecolore:
MsgBox "prima scegli un colore per scrivere!"
Exit Sub







End Sub

Private Sub mnuapri_Click()


End Sub

Private Sub mnucambiacolore_Click()

CommonDialog1.Action = 3
colore = CommonDialog1.Color

End Sub

Private Sub mnuesci_Click()
MsgBox "costruito da stejano"
End
End Sub

Private Sub mnusalva_Click()




End Sub

Private Sub mnustampa_Click()
Form1.PrintForm


End Sub

Private Sub mnusvuota_Click()
Form1.Cls

End Sub



questo è il codice ditemi voi.....mancano il salva e l'apri