ایجاد یک شئ

[mohsenaminzare]

چگونه در vb 6 با استفاده از کد می توان یک شئ جدید مثلا یک برچسب ایجاد کرد ؟

[romina2006]

Public WithEvents label1 As Label
Private Sub Form_Load()
Set label1 = Me.Controls.Add("VB.label", "label1", Me)
With label1
.Visible = True
.Width = 900
.Height = 900
.Left = Me.Width / 2 - .Width / 2
.Top = Me.Height / 2 - .Height / 2
.Caption = "Test Label"
End With
End Sub


از سورسهای زیر هم می تونی استفاده کنی