Private Const GW_HWNDPREV = 3
    Declare Function GetDesktopWindow Lib "user32" () As Long
    Sub main()
        Try
            Debug.Print(GetWindow(GetDesktopWindow, GW_HWNDPREV))
        Catch ex As Exception
            Debug.Print(ex.Message)
        End Try
    End Sub