Conocer el nombre de la ventana activa actual

Con esta función puedes obtener el nombre de la ventana que tiene el foco actualmente.

Este ejemplo para un uso más apropiado deberías crear un Timer y mostrar el valor cada segundo (por ejemplo).

Tienes que crear un CommandButton llamado ‘Command1’:

Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _
             ByVal lpString As String, ByVal cch As Long) As Long
Private Sub Form_Click()
    Dim LongitudNomVentana As Long, NomVentana As String, Manejador As String
    NomVentana = Space$(255)
    Manejador = GetActiveWindow()
    LongitudNomVentana = GetWindowText(GetActiveWindow(), NomVentana, 255)
    MsgBox Left(NomVentana, LongitudNomVentana)
End Sub