[MSDOS]

احببت ان أضيف معلومة في مسألة إضافة الآدوات برمجياً وهي امكانية تشابه الأسماء،
في حين أن ذلك لا يمكن من خلال إضافة الأدوات من خلال التصميم
إليك مثال:

كود :

Dim lbl1 As New Label
Dim lbl2 As New Label

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    lbl1.[color=#FF0000]Name[/color] = "[color=#FF0000]Label1[/color]"
    lbl1.Text = "lbl1"
    lbl1.Location = New Point(150, 30)
    lbl1.ForeColor = Color.Blue
    Me.Controls.Add(lbl1)

    lbl2.[color=#FF0000]Name[/color] = "[color=#FF0000]Label1[/color]"
    lbl2.Text = "lbl2"
    lbl2.Location = New Point(150, 50)
    lbl2.ForeColor = Color.Green
    Me.Controls.Add(lbl2)
End Sub

المشكلة تواجهها عند التحكم بأداة مضافة برمجياً بواسطة الاسم وتوجد أداة أخرى بنفس الاسم،
فسيتم تطبيق التحكم في الأداة المضافة أولاً ابتداء من المضافة من خلال التصميم أولا فان لم يجدها فالمضافة برمجياُ (جرب إضافة أداة Label1 في التصميم ثم جرب بدونها)
إليك مثال:

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.Controls("[color=#FF0000]Label1[/color]").Location = New Point(150, 100)

End Sub