如何获得前台的活动窗口句柄

Option Explicit
'【操作系统】
'Win9X: Yes
'WinNT: Yes
'【说明】
' 获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口
'【返回值】
'Long，前台窗口的句柄
'【其它】
' windows nt支持多个桌面，它们相互间是独立的。每个桌面都有自己的前台窗口
'【参数表】
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim lngHwnd As Long
    lngHwnd = GetForegroundWindow()     '取得前台窗体句柄
    Me.Caption = "当前窗口句柄：" & CStr(lngHwnd)
End Sub