So erkennen Sie, ob die Bildschirmtastatur sichtbar ist

Sie können die WinAPI-Funktion IsWindowVisible verwenden.

Für Visual Basic sieht das so aus:
Dim hWnd As Long 
hWnd = FindWindow("TMainKeyboardForm", vbNullString) 
If (IsWindowVisible(hWnd)) Then ........