VB cuenta con dos controles que permiten diseñar figuras y líneas: estos son Shape y Line, que podemos encontrar en su caja de herramientas estándar.
Estos controles no responden a eventos, o sea no tienen procedimientos que posibiliten acciones.
Ejercicio :
Abrimos un nuevo proyecto, insertamos en el formulario: seis botones y una Shape. Cada botón modifica en su evento Click, las posibles formas del control Shape: Rectángulo, Cuadrado, Círculo, Óvalo, Rectángulo redondeado y Cuadrado redondeado. Para esto modificamos la propiedad Shape, del control Shape.
El formulario se ve así:
Y el código es el siguiente:
Private Sub Command1_Click()' botón rectángulo
Shape1.Shape = 0
End Sub
Asi continuas con cada boton, con la diferencia es que el nº 0 del Shape1.Shape lo varias desde el 0 al 5
El Valor 0 es un = rectángulo
Valor 1= cuadrado
Valor 2= ovalo
Valor 3= circulo
valor 4= rectángulo redondeado
valor 5 = cuadrado redondeado
