private withevents MyCmd as CommandButton
sub Form_load()
set myCmd=form1.controls.add("VB.CommandButton","MyCmd")
end sub
sub myCmd_click()
msgbox "hahahah"
end sub
删除使用Remove方法
sub Form_load()
set myCmd=form1.controls.add("VB.CommandButton","MyCmd")
end sub
sub myCmd_click()
msgbox "hahahah"
end sub
删除使用Remove方法
For i=0 to form1.controls-1
if form1.controls(i).name="Mycmd"
form1.controls.Remove i
end if
next