Programación Visual Basic VB Cómo acomodar líneas e imágenes **** (puntaje alto)

'Agregar un PictureBox y un CheckBox a la ventana

Private Sub Check1_Click()

'Cuando haces clic en la casilla de verificación "Mostrar cuadrícula" Redibujar imagen1

Imagen1 .Refresh

End Sub

Sub privado Form_Load()

'Establecer imagen1.Value = vbChecked

End Sub

Private Sub Picture1_Paint()

'Si Check1 no está seleccionado, salga del proceso

Si Check1.Value = vbUnchecked Entonces salga de Sub

'La constante de espaciado de la cuadrícula es 20 píxeles

Const LINE_SPACE As Long = 20

Atenuar i As Long

Atenuar h As Long, w As Long

w = Imagen1.Ancho

h = Imagen1.Altura

'Dibuja una línea horizontal.

Para i = 1 a h Paso LINE_SPACE

Imagen1.Línea (0, i)-(w, i)

Siguiente

'Dibujar línea vertical

Para i = 1 Al paso LINE_SPACE

Imagen 1. Línea (i, 0)-(i, h)

Siguiente.

Fin del subtítulo