(29-09-13, 06:06 PM)ismail2012 كتب : هذا الكود لأضافة عنصر تحكم جديد

كود :

Dim controlLocation As New Point(10, 50)
        Dim s As New Button
        s.Name = "Button1"
        s.Text = "Text"
        s.Location = New Point(controlLocation.X + 150, controlLocation.Y)
        controlLocation.Y += s.Height + 5
        Me.Controls.Add(s)

طبعا يتم تغيير عنصر التحكم على حسب ما تريد فمثلا لو أردت Label قم بوضعها بدلا من Button هكذا

كود :

Dim newlabel As New Label

وقم بتغيير نص الأدا ة للنص الذي تريده