怎么样定位到TEXTBOX的某一行

怎么样定位到TEXTBOX的某一行
---------------------------------------------------------------

晕，没注意是VB，我用VB重写了一个，将转到行分离成为了个子程序，可做参考，代码如下：

' 转到某行子程序
Private Sub GoLineOf(ByVal LineOf As Int32)
Dim myLen As Int32 = 0 '用来记录目标行前总字符

For i As Int32 = 0 To LineOf
'+2 是因为有0x0A 和0x0D 也就是每行的换行和回车符
myLen = myLen + TextBox1.Lines(i).Length + 2
Next

'伪选择
Me.TextBox1.Select(myLen, 0)
'定位到该位置
Me.TextBox1.ScrollToCaret()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'设置好textBox 的各属性
Me.TextBox1.WordWrap = False
Me.TextBox1.ScrollBars = ScrollBars.Both

'开始模拟文本内容
Me.TextBox1.Focus()
Me.TextBox1.Text = ""

'填充随机字符
Dim RandomObj As New System.Random
For i As Int32 = 0 To 50
Me.TextBox1.Text += New String(Chr(RandomObj.Next(33, 125)), i) + vbCrLf
Next

Call Me.GoLineOf(20) '指未转到第20行
End Sub