[Admiral]

Uzvern, REM это ж основа всего, коменты в коде после этого можно писать дальше по строчки. Тоже что и ' но в топике немного сливается, так что запостил через этот оператор.

Если он вне программы, то есть форма не активна, то без написания драйвер хука никак. А так с помощью свойства e., оно уже встречалось в теме.

[Uzvern]

Мне нужно отловить положение курсора когда текст печатается.

Можешь показать на примере? Просто я пробовал с е., чет нифига не лоучается.

[Admiral]

А ну это другое дело, только тогда в этом случаи терминологически надо говорить про положения каретки, а не курсора (координаты которого передаёт e.)

Код:

  Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim Position As Integer = Me.RichTextBox1.SelectionStart
        Dim Line As Integer = Me.RichTextBox1.GetLineFromCharIndex(Position)
        Dim Col As Integer = Position - Me.RichTextBox1.GetFirstCharIndexOfCurrentLine
        Label1.Text = Position & " " & Line & " " & Col
    End Sub

А насчёт глобальной отловки курсора, то теперь (в отличии от VB6) не надо никакого Хука (по видимому он уже в нёдрах НЕТА), так что отловить его возможно, даже когда окно не активно или когда его и вовсе нет

Код:

Label1.Text = MousePosition.X & " " & MousePosition.Y

[Uzvern]

Как сделать цвету формы прозрачным?

[Admiral]

Вроде .NET добавил такую возможности компонентам (контролям), только для формы не предусмотрели
И выходит что код Me.BackColor = Color.Transparent на выполнении вызывает ошибку

Control does not support transparent background colors.

Чуть по сложнее будет так

Код:

Me.BackColor = System.Drawing.Color.Magenta
Me.TransparencyKey = System.Drawing.Color.Magenta

Только теперь в самом деле окно будет прозрачное, даже для кликов мыши (но не для клавы). Элементы, если не указав им цвет явно, тоже станут прозрачными, так что для каждого елемента прийдётся прописать BackColor (TransparencyKey по желанию).

Если лёгкие пути не для тебя и/или влом прописывать для всех элементов их цвета, то тогда есть арсенал реализации VB6/Delphi6 и не такого частного случая.
Техника программирования сложных окон в Visual Basic Генератор кода Form GENERATOR 1.5 по принципу описанному в статьи.
Впервые о технологии написания, а вернее рисования, нестандартных окон я узнал их этой статьи
Delphi: Безбашенные окна. Несмотря на то, что там описано для Delphi я всё же рекомендую к чтению, поскольку описаны нюансы работы с такими окнами.

[Admiral]

Весьма странно, что начинает прыгать и не выполнять выборку по Case. Тем не менее, ответ по избавлении от 9 Or 10 Or 12 Or 13 одним махом
Case Else
GoTo generaciya
Остальные комментарии в коде

Код:

Public Class Form1
    Dim i As Integer
    '   Dim v As Integer = 0 REM Оно нужно только для цикла, пускай там и создаётся
'...
Private Sub ret()
       'Do Until v = 20 REM Чем обусловлен выбор именно этого цикла?
        'v = v + 1 REM Если использовать For данной строчки не потребуется
        REM For и буду использовать
        For v As Integer = 0 To 20
generaciya:
            i = Int(Rnd() * 190 + 1)
            Select Case i
                Case 1 To 8
                    RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                Case 11
                    RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                Case 14 To 190
                    RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                    'Case 9 Or 10 Or 12 Or 13 REM Если интересуют значение только 1-8, 11, 14-190 то здесь выборку не стоит делать, а написать
                Case Else
                    GoTo generaciya
            End Select
        Next v
    End Sub
'...

Хороший пример, что б показать как можно комбинировать операторы-комментаторы. Rem я использую - когда явно пишу комментарии, а ' - для отключения строчек кода.

[Uzvern]

Admiral, неа. Все-равно 10-ка проскакивает!

[Admiral]

Да уж. Первый самый код должен был нормально отработать, но идеологически боролся с последствиями, а не с причиной.
Вот следующий код ни шагу не даст i пока не убедится, что она не принимает нежелательных значений

Код:

        For v As Integer = 0 To 20
            Do
            i = Int(Rnd() * 190 + 1)
            Loop Until (i <> 9) And (i <> 10) And (i <> 12) And (i <> 13)
            If i = 10 Then Debug.Print(i)Rem это контрольная строчка для проверки через Immediate Window появления значения i 10
REM подробнее про это окно здесь ->http://msdn.microsoft.com/en-us/library/f177hahy(VS.80).aspx 
            RichTextBox1.Text = RichTextBox1.Text & Chr(i)
        Next v

[Uzvern]

Admiral, ты не поверишь...но она все-равно проскакивает!
Вот, залью проект. Может чего с кодом накосматил...
http://slil.ru/25889104

Объясни пожалуйса поподробней что это и как это можно использовать

Код:

Debug.Print()

[mrcnn]

Uzvern
Критерий правильности: отсутствие появления перехода на новую строку?
Отключи тогда еще 11

Код:

Loop Until (i <> 9) And (i <> 10) And (i <> 12) And (i <> 13) And   (i <> 11)

Debug.Print работать будет по видимому только в поздних студиях