Cómo agregar botones de comando usando código en VB

Siga los siguientes pasos para agregar dinámicamente botones de comando

(1) Crear un nuevo proyecto VB6

(2) Código de formulario Form1 ¿Opción? Explícito

'Defina las variables del botón de comando que se agregarán dinámicamente (con manejo de eventos)

Dim?WithEvents?cmdX?As?CommandButton

'Haga clic en el botón agregado dinámicamente para que aparezca un cuadro de diálogo

Privado?Sub?cmdX_Click()

MsgBox?"¡¡¡Botón de comando agregado dinámicamente!!!"

Fin?Sub

'Haga doble clic en el formulario para agregar dinámicamente un botón de comando

Privado?Sub?Form_DblClick()

If?cmdX?Is?Nothing?Then

Establecer? cmdX?=?Controls.Add("VB.CommandButton",?"cmd1")

cmdX.Caption?=?"Haga clic en mí"

cmdX.Width ?=? 4500

cmdX.Move?150,?150

cmdX.Visible?=?True

Fin?Si

¿Fin?Sub

(3) Ejecutar

Después del inicio

Haga doble clic en el formulario

Haga clic en el botón de comando para que aparezca un cuadro de diálogo