Dibujar en VB

[700esoj]

Con este cidigo los usuarios podran dibujar en tiempo de ejecucion.:
Se le puede agregar una tabla de herramientas como la de paint si lo desean.
Si desean imprimir el dibujo que han realizado con esta aplicacion, es necesario que la propiedad del form AUTOREDRAW este en TRUE.

Dim draw  As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
draw = True 'aqui la vaiable booleana se activa, permitiendonos dibujar
CurrentX = X ' se carga la variable en ubicacion X
CurrentY = Y ' Lo mismo en Y
End Sub




Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If draw Then Line -(X, Y) ' si la variables esta activada, se dibuja

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
draw = False ' Variable booleana se desactiva, dejando ya de dibujar
End Sub

[Sh4k3]

  Ta bonito !!!!

GRACIAS X EL APORTE!!!