| 发表于:2007-01-12 10:47:061楼 得分:0 |
private sub command1_click() dim ctr as label ' controls.add 方法有三个参数:控件的progid,控件名称,容器(可选) set ctr = controls.add( "vb.label ", "lbl ", me) ctr.move 1000, 1000, 2000, 2000 ctr.caption = now ctr.visible = true end sub private sub command2_click() controls.remove "lbl " end sub | | |
|