[VB_Coder]

السلام عليكم

- أفضل لك أن تضع ليبل وتخلي خاصية ال Autosize يساوي True وتخلي الليبل مخفي ، ثم تضع كود بسيط في حدث ال Change للتكست بوكس كالتالي :

كود :

Private*Sub*Text1_Change()
Label1.Caption = Text1.Text
Text1.Width*=*Label1.Width
Text1.Height*=*Label1.Height
End*Sub*

- وايضا اضبط نوع الخط وحجمه غي الليبل ليكون كما في التكست بوكس .
- تحياتي .