Ppara que te de, la ventana de tu form tendria que estar invisible, y si te refieres a obtener la ventana activa en ese momento checa este codigo:
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Command1_Click()
Dim Ref1&, Ref2&, V_Activa$
Ref1 = GetForegroundWindow
Ref2 = GetWindowTextLength(Ref1)
V_Activa = String$(Ref2, Chr$(0))
GetWindowText Ref1, V_Activa, Ref2 + 1
Text1.Text = V_Activa
End Sub
podes cambiar el command1 por un timer para que vaya checando la ventana, lo que hace el codigo, es devolverme el titulo de la ventana en la que ese momento esta activa.
saludos