SoloCodigo

Public WithEvents Command2 As CommandButton 'SE CREA LOS EVENTOS DEL BOTON


Private Sub Command2_Click() 'NUEVO BOTON
    MsgBox "Button Pressed"
End Sub

Private Sub Command1_Click()
    'SE CARGA EN LA VARIABLE EN NUEVO BOTON
    Set Command2 = Me.Controls.Add("VB.CommandButton", "Command2", Me)


    'SE AGREGAN LAS PROPIEDADES
    With Command2
        .Visible = True
        .Width = 900
        .Height = 900
        .Left = Me.Width / 2 - .Width / 2
        .Top = Me.Height / 2 - .Height / 2
        .Caption = "Test Button"
    End With
End Sub