Dibujar en Visual BASIC

Veamos un pequeño ejemplo de como utilizar algunas de las herramientas de dibujo que nos brinda visual basic

Option Explicit
Dim Color As Long
Dim p As Integer

Private Sub Command1_Click()
'Define el color rojo en la Picture1 
Color = RGB(255, 0, 0)
End Sub

Private Sub Command2_Click()
'Define el color rosa en la picture1
Color = RGB(255, 192, 203)
End Sub

Private Sub Command3_Click()
'Define el color negro en la Picture1 
Color = RGB(0, 0, 0)
End Sub

Private Sub Command4_Click() 
'Define el color amariyo en la Picture1 
Color = RGB(255, 255, 0)
End Sub

Private Sub Command5_Click()
'Define el grosor del puntero 
Picture1.DrawWidth = InputBox("Dame el grosor del puntero:", "Grosor")
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 
Picture1.PSet (X, Y), Color 
End If 
If Button = 2 Then 
Picture1.PSet (X, Y), RGB(255, 255, 255) 
End If
End Sub