Buscando el programa de tablero de dibujo VB

No puedo dibujar rectángulos, se pueden realizar otras funciones. Solía ​​hacerlo yo mismo. Si es necesario, puedo enviártelo.

Dim t As Byte, s As Byte. c como byte

p>

Subcomando privado1_Click()

t = 1

Si Form1.ForeColor = Form1.BackColor Entonces ForeColor = QBColor( c)

Si Form1.DrawWidth = 12 Entonces Form1.DrawWidth = s

Fin Sub

Subcomando privado2_Click()

Form1 .DrawWidth = 12

t = 2

End Sub

Subcomando privado3_Click()

Cls

Form1.ForeColor = vbBlack

Form1.DrawWidth = 1

t = 1

End Sub

Sub privado Form_Load()

Dim i%

Para i = 0 a 15

Imagen1(i).BackColor = QBColor(i)

Siguiente i

Form1.ForeColor = vbBlack

t = 1

End Sub

Sub privado Form_MouseDown(Botón como entero, Mayús como entero, X como Single, Y como Single)

CurrentX = X: CurrentY = Y

End Sub

Sub privado Form_MouseMove(Botón como entero, Mayús como entero, X como Sencillo, Y como sencillo)

Si botón = 1 y t = 1, entonces línea -(X, Y)

Si botón = 1 y t = 2, entonces Form1.ForeColor = Form1 .BackColor: Form1.MousePointer = 4: Línea -(X, Y)

End Sub

Subimagen privada1_Click(Indexar como entero)

Form1.ForeColor = Imagen1(Índice).BackColor

c = Índice

End Sub

Subimagen privada2_Click()

Form1.DrawWidth = 1 : s = 1

End Sub

Sub imagen privada3_Click()

Form1.DrawWidth = 2: s = 2

Fin Sub

Subimagen privada4_Click ()

Form1.DrawWidth = 4: s = 4

Fin Subimagen

Subimagen privada5_Click()

Form1.DrawWidth = 8: s = 8

Fin Sub