Adicione o seguinte código de programa ao Form_Load
SubForm_Load()
Form1.AutoRedraw = Verdadeiro
'Habilita o redesenho automático do objeto Form
Form1.DrawStyle=6
'O estilo da linha reta é linha sólida interna (6-vbInsideSolid)
Form1.DrawMode=13
'copyPen - a cor especificada pela propriedade ForeColor. (13-vbCopyPen)
Form1.DrawWidth=2
'A largura da linha de saída é de 2 pixels (Pixel)
'Crie uma escala de coordenadas personalizada para plotar ou imprimir
'Pixel gráfico é a menor unidade de resolução de monitor ou impressora
Formulário1.ScaleMode=3
'Define a unidade de medida das coordenadas do objeto para pixels (3-VbPixels)
Formulário1.ScaleHeight=(256*2)
'Define o valor da unidade de medida vertical para 512
Fori=0To255
Formulário1.Linha(0,Y)-(Formulário1.Largura,Y 2),RGB(0,0,i),BF
S=S 2
Próximo
'RGB (vermelho, verde, azul)
'B: Desenhe um quadrado usando as coordenadas do canto oposto do quadrado especificado
'F: Especifica que este quadrado é preenchido com a cor usada para desenhar o quadrado (F só pode ser usado se B estiver presente)
FimSub->