引用：

clsTask____________________________Private lbl As LabelPrivate frm As FormPublic Property Let Owner(ByVal vNewValue As Form)Set frm = vNewValueEnd PropertyPublic Sub AddPanel(ByVal strCaptiop As String)Set lbl = frm.Controls.Add("VB.Label", "lbl1")lbl.Move 1000, 1000, 1000, 1000lbl.Caption = strCaptioplbl.Visible = TrueEnd Subform__________Private Sub Form_Load()Dim a As New clsTaska.Owner = Mea.AddPanel ("1243")End Sub