Pregunta de VB, ¿qué control se puede dibujar y cómo controlar el ancho y el color de la línea?

El siguiente es un ejemplo de cómo dibujar una línea en un formulario:

Private Subform_Click()

i. DrawWidth = 1 'Establece el ancho (todas las demás líneas de ancho son líneas continuas).

Para i = 0 a 6

i. Establezca el tipo de línea.

Yo. Línea (1000 * I 100, 100) - (1000 * I 100, 6000), punto inicial, punto final y color de la línea roja VB.

Siguiente I

Conector final

El siguiente es un ejemplo de cómo dibujar una línea en un cuadro de imagen (por supuesto, debe haber un cuadro de imagen en el formulario , se supone que el atributo de nombre es imagen1):

Subform_Click privado()

Imagen 1. drawwidth = 1 'Establece el ancho (las líneas con otros anchos son líneas continuas).

Para i = 0 a 6

Imagen 1. Establezca el tipo de línea.

Foto 1. Línea (1000 * I 100, 100) - (1000 * I 100, 6000), punto inicial, punto final y color de la línea roja VB.

Siguiente yo

Conector final