1. Visual Basic - Curso completo teoria y practica

Para el desarrollo de la presente aplicación proceda a
crear un nuevo proyecto y agregar al formulario 34 cuadros de
imagen. Luego ingresar el código mostrado.
Objeto Nombre Descripción
Picture1 . . . Picture32 PicColor Opciones de color
Picture33 PicMuestra Color actual utilizado
Picture34 PicLienzo Area de dibujo
Dim COLOR As Single
Private Sub Form_Load()
End Sub
PicLienzo.ScaleMode = 3
PicLienzo.DrawWidth = 5
COLOR = RGB(0, 0, 0)
Private Sub PicColor_Click(Index As Integer)
End Sub
COLOR = PicColor(Index).BackColor
PicMuestra.BackColor = COLOR
Private Sub PicLienzo_MouseDown(Button As Integer, _
End Sub
If Button = vbLeftButton Then
End If
Shift As Integer, X As Single, Y As Single)
PicLienzo.PSet (X, Y), COLOR
Pág. 200