Integer*4 Function myHWnd()

use dfwin

Integer*4 hWnd

hWnd = GetActiveWindow()
If (hWnd .eq. 0) Then
   hWnd = GetForegroundWindow()
End If

myHWnd = hWnd

End Function