как поймать событие прокрутки мыши в richetextbox?
через вот так

lPrevWndProc = SetWindowLong(rtb.hwnd, GWL_WNDPROC, AddressOf WindowProc)

не работает

я уже забыл как
памагите :)

Шото Вы батенька - стали частым гостем в разделе вопросы и ответы???

скажем дружно - нахрен нужно

сабкласиснг нахринг

Private Sub Form_Timer() Dim rtb As RichTextBox Dim sci As SCROLLINFO Dim ret As Long Set rtb = Me.RTF24.Object sci.cbSize = Len(sci) sci.fMask = SIF_TRACKPOS Or SIF_RANGE Or SIF_PAGE ret = GetScrollInfo(rtb.hwnd, 1, sci) If ret > 0 Then     'Debug.Print sci.nPos, sci.nTrackPos     If cScroll <> sci.nTrackPos Then         DrawLines Me.picLines.Object         cScroll = sci.nTrackPos     End If End If Set rtb = Nothing End Sub

ставим таймер интервал 1
и все
скроллинг пойман и синхронизирован

правда еще не знаю чем это мне чревато и вылезет ли боком?

это был драфт
чтобы потом, если не получилось, удалить все сразу, а не разбросано искать компилятором :)

по ходу фокус всегда в этом контроле
см. аттач

та да :) смысли и даром не нать!