知道当前有焦点的窗体的窗体名
在我的主窗体中有一个“当前位置”的label，我需要在当前正在获得焦点，也就是说当用户正在操作的窗体的窗体名显示在这个Label中
如当前用户正在使用课程信息查询的功能，提供这个功能的窗体名是“课程信息查询”，当这个窗体获得焦点的时候，主窗体中的label1显示：“当前位置：课程信息查询”。
当然，如果是另外一个窗体，又显示：当前位置：XXXXX
谢谢
[解决办法]
不好意思，正正经经的纠正一下。
因为一直用一个公用库里面的这个函数来实现类似功能，久而久之竟然把它当成了一个API。
准确的说对应的API 应该是GetWindowText
Private Function GetWindowCaption(ByVal hwnd As Long) As String
Dim strText As String, ret As Long
ret = GetWindowTextLength(hwnd)
If ret > 0 Then
strText = Space(ret)
GetWindowText hwnd, strText, ret + 1
strText = Left(strText, ret)
GetWindowCaption = strText
Else
GetWindowCaption = " "
End If
End Function
