Obtendo a quantidade de linhas em um TextBox de múltiplas linhas

'Este exemplo mostra como obter a quantidade de linhas
'de texto em um TextBox de múltiplas linhas

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

    Dim quantLinhas As Integer = TextBox1.Lines.Length
    MsgBox("A caixa de texto contém " & quantLinhas & " linhas")

  End Sub
End Class