Dim txt = e.form.controls("TextBox1").basecontrolDim count = txt.GetLineFromCharIndex(txt.TextLength)+1msgbox(count)