desconozco, pero puedes hacer esto:
Código:
Dim x As Integer = 0
While x <= Me.Controls.Count - 1
If (Me.Controls(x).Focused) Then
'tiene el foco
Me.Text = "el control " & Me.Controls(x).Name & " tiene el foco"
Exit While
Else
Me.Text = "Nadie tiene el foco"
'pues no lo tiene
End If
x += 1
End While