Может "хозяин" почувствовать текст, брошенный ему на форму через API TextOut ?

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long 'íàõîäèò, êàêîå îêíî ÿâëÿåòñÿ â íàñòîÿùåå âðåìÿ ïðèîðèòåòíûì (îêíî ñ ôîêóñîì)
Private Declare Function GetDC Lib "USER32" (ByVal hWnd As Long) As Long 'âîçâðàùàåò êîíòåêñò óñòðîéñòâà (DC) îêíà èëè äðóãîãî îáúåêòà, èìåþùèé äåñêðèïòîð
Private Declare Function ReleaseDC Lib "USER32" (ByVal hWnd As Long, ByVal hDC As Long) As Long 'Çàõâàòèâ êîíòåêñò óñòðîéñòâà, âû îáÿçàíû âåðíóòü åãî ñèñòåìå ÷åðåç ôóíêöèþ ReleaseDC.
Private Declare Function TextOut Lib "GDI32" Alias "TextOutA" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long 'îòîáðàæàåò ñòðîêó òåêñòà íà óñòðîéñòâå
Dim lRet As Long
 
'---------------------------------------------
FHWND = GetForegroundWindow()
deskhdc = GetDC(FHWND)  ' ïîëó÷àåì êîíòåêñò óñòðîéñòâà
m = "?????"
lRet = TextOut(deskhdc, 765, 365, m, Len(m))
retval1 = ReleaseDC(FHWND, deskhdc) ' Îñâîáîæäàåì ðåñóðñû, âçÿòûå ó êîíòåêñòà óñòðîéñòâà

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long 'âîçâðàùàåò êîíòåêñò óñòðîéñòâà îêíà, âêëþ÷àÿ çàãîëîâîê, ìåíþ, ïîëîñû ïðîêðóòêè
Private Declare Function ReleaseDC Lib "USER32" (ByVal hWnd As Long, ByVal hDC As Long) As Long 'Захватив контекст устройства, вы обязаны вернуть его системе через функцию ReleaseDC.
Private Declare Function TextOut Lib "GDI32" Alias "TextOutA" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long 'отображает строку текста на устройстве
Dim lRet As Long
 
'---------------------------------------------
deskhdc = GetWindowDC(0)  ' получаем контекст окна ВсегоЭкрана
m = "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
lRet = TextOut(deskhdc, 10, 10, m, Len(m))
retval1 = ReleaseDC(0, deskhdc) 'Освобождаем ресурсы, взятые у контекста устройства