[munimteer]

(11-08-18, 02:32 AM)Null كتب : أضف أداةTextBox

ثم ضع Panel وضع بداخلها عدة أدوات Lable  مع ترتيب اماكنها حسب الحاجة


ثم استخدم هذا الكود

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
   Try
       Dim p As Control = Panel1
       For Each c As Control In p.Controls
           c.Text = ""
           c.AutoSize = False
           c.Size = New Size(13, 13)
       Next
       For i = 0 To Len(TextBox1.Text) - 1
           p.Controls(i).Text = TextBox1.Text(i)
       Next
   Catch ex As Exception
   End Try
End Sub

مشكور جداً Null لقد اشتغل الكود كما أريد بارك الله فيك و جزاك الله خيراً

---

السلام عليكم و رحمة الله و بركاته

بعد ان اشتغل الكود 

اردت ان امحى كلمة label1  من الخصائص من التكسيت فتختفي من الفورم

كيف اجعلها لاتختفي و بدون عنوان؟