新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    MsgBox GetActiveWindowTitle(True)
End Sub

Private Function GetActiveWindowTitle(ByVal ReturnParent As Boolean) As String
   Dim I As Long
   Dim j As Long
   
   I = GetForegroundWindow   
   
   If ReturnParent Then
      Do While I ＜＞ 0
         j = I
         I = GetParent(I)
      Loop
   
      I = j
   End If
   
   GetActiveWindowTitle = GetWindowTitle(I)
End Function

可以得到当前窗口的标题。