Символ под курсором в чужом окне

'В модуль...
Public Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
'В форму...
Dim sWindowName As String 
Dim hwndForMyProg As Long
sWindowName = 'Безымянный - Блокнот' 'Вот сюда вводиш название окна
hwndForMyProg = FindWindow(vbNullString, sWindowName)
'hwndForMyProg - как ты понял hwnd твоего окна
Msgbox 'Дескриптор окна' & sWindowName & ' = ' & hwndForMyProg

Type POINT
 X As Long
 Y As Long
End Type
 
Function GetChar() As String
 Dim pt as POINT, hWin as Long, ppt As Long, pos As Long
 GetCursorPos(pt)
 hWin = WindowFromPoint(pt)
 ScreenToClient(hWin, pt)
 ' For standatd edit control
 ppt = (pt.X And &HFFFF) Or (pt.Y And &HFFFF) * &H10000
 pos = (SendMessage(hWin, EM_CHARFROMPOS, 0&, ByVal ppt) And &HFFFF)
 ' For rich edit control:
 ' pos = SendMessage(hWin, EM_CHARFROMPOS, 0&, pt)
 SendMessage(hWin, WM_GETTEXT, pos + 1, buff)
 GetChar = Mid(buff, pos + 1, 1)
End Function