RE:Determinar donde esta el foco
Si a lo que te refieres es a saber cual control de tu formulario tiene el foco en un momento determinado lo siguiente te puede servir:
Crea un formulario, inserta 2 botones de commando, 1 caja de texto y un Timer, luego inserta el siguienete codigo en tu Form:
Option Explicit
Dim foco As String
Private Sub Command1_GotFocus()
foco = Command1.Name
End Sub
Private Sub Command2_GotFocus()
foco = Command2.Name
End Sub
Private Sub Timer1_Timer()
Text1.Text = "El foco esta en " & foco
End Sub
Ajusta el intervalo del Timer segun la rapidez con que quieras que se haga la deteccion, yo lo ensaye con 1milesima de segundo y funciona perfecto.
Saludos