clsTask
____________________________
Private lbl As Label
Private frm As Form
Public Property Let Owner(ByVal vNewValue As Form)
Set frm = vNewValue
End Property
Public Sub AddPanel(ByVal strCaptiop As String)
Set lbl = frm.Controls.Add("VB.Label", "lbl1")
lbl.Move 1000, 1000, 1000, 1000
lbl.Caption = strCaptiop
lbl.Visible = True
End Sub
form
__________
Private Sub Form_Load()
Dim a As New clsTask
a.Owner = Me
a.AddPanel ("1243")
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024