crear figuras en VB

[Mr pom0]

Alguna persona sabe como puedo crear un shape con lineas de codigo ????

[cassiani]

Alguna persona sabe como puedo crear un shape con lineas de codigo ????

Seria crearlas en tiempo de ejecución...

Código [Seleccionar] Expandir

Option Explicit

Dim WithEvents Shape1 As Shape

Private Sub Form_Load()
    'Crea un nuevo Shape en tiempo de ejecución...
   
    'Agregando el control
    Set Shape1 = Form1.Controls.Add("VB.Shape", "Shape1")
     
    Shape1.Visible = True
   
    'ancho del borde del shape
    Shape1.BorderWidth = 5
         
    'color del borde
    Shape1.BorderColor = &HC0FFC0

    'Posiciona el Shape en la ubicación del TextBox
    Shape1.Move 1440, 1200, 1215, 855
   
    'Forma del shape
    Shape1.Shape = 3 'Circulo
End Sub


¡S4lu2!