实例代码：/旅腊/在picture1上面添加一个commandbuttonPrivateSubForm_Load()Form1.Controls.Add"VB.CommandButton","cmdOk",Picture1/拆陪滑/动态添加控件WithForm1.cmdOk.Visible=True.Width=500.Caption="确认(&Y)"乱信EndWithEndSub
