VB内嵌控件的使用,

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 Set mobjTest = mobjCtl ' MsgBox mobjTest.Left End Sub Private Sub mobjTest_Hit() MsgBox "哼，想杀我，问问我手上的家伙答应不答应吧！" mobjTest.Dead = True End Sub