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

Evaluacion

evaluacion

Lo que hay que saber
Para que se utilizan las funciones LEN, LEFT, RIGHT, MID
Que funcionan los ciclos FOR-NEXT, DO WHILE-LOOP
Principales propiedades de los Botones (caption, forecolor, font, passwordchar)
TEXTBOX
LABEL
LISTBOX
COMBOBOX
OPTIONBUTTON

Tipos de Variables
STRING, INTEGER, DOBLE, LONG, SINGLE

Instrucciones condicionales
IF THEN ELSE ENDIF
SELECT CASE - ENDCASE

Instrucciones para ingreso de valores
INPUTBOX

Random
RND()