Labels:dialog box | earth | field | sand | sky | web site | window OCR: Word Over Test Pption Explicil "Simple nver function for Textbox nol Richtext 2005 Scythe MMM, scythe tools Tm Private Type POINTAPI X > As As Long Long End Type Private Declare Function GetCursorPos Lib "user32" [ByRef IpPoint As POINTAPI]As Long Private Declare Function ScreenT ToClient Lib "user32" (ByVal hwnd As Long. ByRef IpPoint A POINTAPI] As Long Private Declare Function SendM essage Lib "user32" Alias "SendMe essageA' [ByVal hwnd AS Long. ByVal wMsgAs Long. ByVal wP aram As Long. ByRef IParam Any] S'v' Long Private Const EM CHARFROMPOS &HD7 'Find the Word under the mouse in a Textbox Public Function Textw ordOver[BRef extBox As T extB ox] As String Dim PT POINT. API Dim CurLine Long Dim CurPosX As Long Dim Long Dim EndX Long Dim Tmp As String With extBox GetC ursorPos P ScreenT T ...
