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()

Atenuar 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 único , Y como único)

CurrentX = X: CurrentY = Y

End Sub

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

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

Sub imagen privada2_Click()

Form1.DrawWidth = 1: s = 1

Fin Sub

Sub imagen privada3_Click()

Form1.DrawWidth = 2: s = 2

Fin Sub

Subfoto privada

ture4_Click()

Form1.DrawWidth = 4: s = 4

Fin Sub

Subimagen privada5_Click()

Form1.DrawWidth = 8: s = 8

Fin Sub