Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       ' تعريف متغيرات لازمة للعملية
       Dim Lines As Integer = 0
       Dim I As Integer = 0
       Dim S As String = ""

       'حلقة تكرارية تبدأ من أول حرف في صندوق النص و حتى آخر حرف
       For I = 0 To TextBox1.Text.Length - 1

           'تعيين قيمة للمتغير الذي عرفناه أعلاه تساوي حرف واحد مقتطع من النص
           S = TextBox1.Text.Substring(I, 1)

           'إزا كانت النص المقتطع مساويا لقيمة الضغط على
           'Enter من لوحة المفاتيح
           'نعلم مسبقا أن قيمة الزر تساوي 13
           If S = Chr(13) Then

               'تزداد قيمة متغير عدد الأسطر بمقدار واحد
               Lines += 1

           End If
       Next

       'رسالة نصية بعدد الأسطر طبعا أضفنا القيمة 1 لأنه السطر الأول قيمته 0
       'و لتجاوز هذه المشكلة يصبح السطر الأول قيمته واحد و هكذا
       MsgBox(Lines + 1)
   End Sub