> で、本題ですが、EM_GETSELってのを調べてみてください。
> これでいけるならsendmessage API関数も必要ですね。 

その方法でも取得できますが、API を使わずとも標準機能だけで取得できますよ。

Dim pos As Integer = TextBox1.SelectionStart

Dim row As Integer = TextBox1.GetLineFromCharIndex(pos)

Dim col As Integer = pos - TextBox1.GetFirstCharIndexOfCurrentLine()



Me.Text = String.Format("{0}行{1}列", row + 1, col + 1)

なお、TextBox の代わりに RichTextBox を使うようにすれば、Timer も不要となります。
(Timer の Tick イベントではなく、RichTextBox の SelectionChanged イベントに記述する)