How to detect if the On-Screen Keyboard is visible

For Visual Basic, it looks like this:

Dim hWnd As Long
hWnd = FindWindow("TMainKeyboardForm", vbNullString)
If (IsWindowVisible(hWnd)) Then ........