[3boody]

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

اخي الفاضل استخدم الاداة RichTextBox خصائصها افضل
هذا الكود يكبر الاداة نحو الاتجاه العمودي

Private Sub richTextBox1_ContentsResized(ByVal sender As Object, ByVal e As ContentsResizedEventArgs) Handles RichTextBox1.ContentsResized
RichTextBox1.Height = e.NewRectangle.Height + 12
End Sub