Dibujar a mano alzada dentro de PictureBox

[luciano]

Coloca un picture1 ..saludos


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.CurrentX = X
Picture1.CurrentY = Y
DrawMode = vbNotXorPen
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line -(X, Y)
End If
End Sub

Nota: si queres que el dibujo se mantenga al minimizar o repintar la ventana, colcoale el Autoredraw en true


------------------------