问个高难的:怎样动态创建控件,如按扭控件?

[正能量程序]

如题!

[victorycyz]

试用controls.add方法。

[goodname008]

' 举个例子，动态添加按钮。

Option Explicit
Dim WithEvents cmdOK As CommandButton

Private Sub Form_Load()
Set cmdOK = Controls.Add("VB.CommandButton", "cmdOK", Me)
With cmdOK
.Left = 100
.Top = 100
.Width = 2000
.Height = 1000
.Caption = "确定"
.Visible = True
End With
End Sub

Private Sub cmdOK_Click()
MsgBox "您单击了确定!"
End Sub

[cyb1017]

同意