Его можно загрузить отсюда:
http://www.vbstreets.ru/VB/Sources/Downloads_GetFile.aspx?id=66109
Использование этого решения просто до невозможности - добавьте модуль modLinedTextBox.bas к вашему проекту и вызовите функцию ShowLines при необходимости показать/скрыть нумерацию строк.
- Код: Выделить всё
'показать нумерацию
modLinedTextBox.ShowLines <элемент RichTextBox или TextBox>, _
True
...
'скрыть нумерацию
modLinedTextBox.ShowLines <элемент RichTextBox или TextBox>, _
False
Конечно же, у данной реализации есть и минусы. Например, программу с её использованием несколько сложнее отлаживать.