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