1 Private Sub show_status()
2
3      Dim pt As Point
4      Dim index As Integer = 0
5      Dim row As Long
6      Dim col As Long
7      index = rtbBox.GetFirstCharIndexOfCurrentLine()
8      row = rtbBox.GetLineFromCharIndex(index)
9      index = rtbBox.SelectionStart
10      pt = rtbBox.GetPositionFromCharIndex(index)
11      pt.X = 0
12      c = index - rtbBox.GetCharIndexFromPosition(pt)
13      rowcolStatusLabel.Text = Convert.ToString("Row : " & (lijn + 1) & " Col : " & (kol + 1))
14
15   End Sub