Dim l1 As LabelSet l1 = Me.Controls.Add("VB.Label", "l1")l1.Caption = "我是动态创建的Label控件"l1.Left = 300l1.Top = 150l1.Visible = True
适用于VB6
