Declare Function SetFocusAPI Lib "user32.dll" Alias "SetFocus" (ByVal hWnd As Long) As Long
В успешном случае функция возвращает дескриптор окна, имевшего фокус ввода. В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки)
' Передадим фокус ввода ' кнопке cmdGetsFocus ' Создайте кнопку Command1 на форме Dim lRet As Long ' возвращаемое значение ' Передадим фокус ввода кнопке lRet = SetFocusAPI(Command1.hWnd)