Si lo que quieres es saber en todo momento si tu ventana, o cualquier control tiene en ese momento el foco activo, tienes varias formas de hacerlo:
La primera es recorriendo en un for each cada uno de los controles, existe una propiedad que te refleja si esta activo, pero si tienes muchos controles en un formulario, pues como que no es muy practico.
La segunda opcion es utilizar una propiedad que hay en todos los controles .TAG, es como una varible variant donde puedes almacernar lo que quieras, eso combinado con dos eventos GOTFOCUS Y LOSTFOCUS, podras saber si tu ventana esta activa en todo momento:
Option Explicit
Private Sub Form_GotFocus()
Form1.Tag = 1
End Sub
Private Sub Form_Load()
Form1.Tag = 0
End Sub
asi con una comprobacion
If Form1.Tag = 1 then
msgbox "Ventana Activa"
elseif form1.Tag = 0 then
msgbox "Ventana inactiva"
end if
Espero que te sea de ayuda
