怎样在程序启动时，加载控件

Question

Dim WithEvents ctlAdd As CommandButton  ---窗体级变量
  
Private Sub ctladd_Click()
  MsgBox ("aaa")
End SubPrivate Sub Form_Load()
    Set ctlAdd = Me.Controls.Add("VB.CommandButton", "name")
    With ctlAdd
        .Width = 1245
        .Visible = True
        .Caption = "OK"
    End WithEnd Sub

Answer 1

Dim WithEvents cTrol As VB.TextBoxPrivate Sub Form_Load()
    Set cTrol = Me.Controls.Add("VB.textbox", "name")
    With cTrol
        .Width = 1245
        .Visible = True
        .Text = "OK"
    End WithEnd Sub