Agregue el siguiente código de programa a Form_Load
SubForm_Load()
Form1.AutoRedraw=Verdadero
'Habilitar el redibujado automático del objeto Formulario
Formulario1.DrawStyle=6
'El estilo de la línea recta es línea sólida interna (6-vbInsideSolid)
Formulario1.DrawMode=13
'copyPen: el color especificado por la propiedad ForeColor. (13-vbCopiarPluma)
Formulario1.DrawWidth=2
'El ancho de la línea de salida es de 2 píxeles (Pixel)
'Crear una escala de coordenadas personalizada para trazar o imprimir
'El píxel de gráficos es la unidad más pequeña de resolución de monitor o impresora
Formulario1.ScaleMode=3
'Establece la unidad de medida de las coordenadas del objeto en píxeles (3-VbPixels)
Formulario1.EscalaHeight=(256*2)
'Establece el valor de la unidad de medida vertical en 512
Fori=0A255
Form1.Line(0,Y)-(Form1.Width,Y 2),RGB(0,0,i),BF
Y=Y2
Siguiente
'RGB (rojo,verde,azul)
'B: dibuja un cuadrado usando las coordenadas de la esquina opuesta del cuadrado especificado
'F: Especifica que este cuadrado se rellena con el color utilizado para dibujar el cuadrado (F sólo se puede utilizar si B está presente)
FinSub->