' API Deklarationen
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 GetForegroundWindow Lib "user32" _
    () As Long
 
 
Public Function GetForegroundWindow_HD() As Long
  Dim lAhd          As Long
  Dim sName         As String * 255
 
  ' API Aufrufe zum holen des Fenster Handels
  lAhd = GetForegroundWindow ' GetActiveWindow
  ' für den Fensernahmen
  GetWindowText lAhd, sName, Len(sName)
 
  Debug.Print "Window Handle: " & lAhd
  Debug.Print "Window Name: " & Trim(sName)
  GetActiveWindow_HD = lAhd
End Function