VB内嵌控件的使用， Private WithEvents mobjTest As UserControl1 Private mobjCtl As Control Private Sub Command1_Click() Call mobjTest.Test End Sub Private Sub Form_Load() Set mobjCtl = Me.Controls.Add("工程1.usercontrol1", "ctl1") mobjCtl.Move 120, 120 mobjCtl.Visible = True