ایجاد Label در زمان اجرا

سلام دوستان
من میخواستم که برنامه ای بنویسم که بازدن روی یه دکمه به فرمم یه Label اضافه کنه(البته در زمان اجرا به فرم یه Label اضافه بشه)
و یا چند Label به صورت آرایه ای ایجاد بشه

ممنون می شم کمک کنید:n01:

سلام../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**************
یه دکمه به فرمتون اضافه کنید و کد زیر رو داخل رویداد کلیک دکمه قرار بدید../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
******************

کد:

---


Private Sub Command1_Click()


    Static num As Integer
    'Dim newLabel() As Label
    ReDim newLabel(num) As Label


    Set newLabel(num) = Controls.Add("vb.Label", "newLabel" & num)
   
    With newLabel(num)
        .Caption = (num + 1)
        .Width = 1000
        .Height = 250
        .Left = 100
        .Top = num * 300 + 100
        .Visible = True
    End With
 
    num = num + 1
 
End Sub

---

************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]