** Click Event #Define EM_LINESCROLL 0xB6 #Define EM_GETFIRSTVISIBLELINE 0xCE Declare Long SendMessage in User32 ; Long nhWnd, Long uMsg, Long wParam, Long lParam Declare Long PostMessage in User32 ; Long nhWnd, Long uMsg, Long wParam, Long lParam With ThisForm.oRTF nLine = .GetLineFromChar( .SelStart ) If (nLineNo > 0) nLineNo = nLineNo - SendMessage( .hWnd, EM_GETFIRSTVISIBLELINE, 0, 0 ) If (nLineNo > 0) PostMessage( .hWnd, EM_LINESCROLL, 0, nLineNo ) endif endif EndWithRegards