Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Adding Controls to a UserForm at Design Time

Sub RunTimeButton()     Dim Butn As CommandButton     Set Butn = UserForm1.Controls.Add("Forms.CommandButton.1")     With Butn         .Caption = "Added at runtime"         .Width = 100         .Top = 10     End With     UserForm1.Show End Sub