Dim
WithEvents
cmdBtn
As
VB.CommandButton
'
如果不需要事件,可以去掉WithEvents
Private Sub Command1_Click() ' 添加按钮
Set cmdBtn = Me .Controls.Add( " VB.CommandButton " , " myCtrl " , Me )
cmdBtn.Caption = " Click Me "
cmdBtn.Move 0 , 0 , 2500 , 500
End Sub
Private Sub cmdBtn_Click() ' 按扭的事件
MsgBox ( " ok " )
End Sub
Private Sub Command1_Click() ' 添加按钮
Set cmdBtn = Me .Controls.Add( " VB.CommandButton " , " myCtrl " , Me )
cmdBtn.Caption = " Click Me "
cmdBtn.Move 0 , 0 , 2500 , 500
End Sub
Private Sub cmdBtn_Click() ' 按扭的事件
MsgBox ( " ok " )
End Sub