Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _ lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _ hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Const WM_COMMAND = &H111 Const MIN_ALL = 419 Const MIN_ALL_UNDO = 416 ' Minimize all the windows on the desktop (and optionally restore them)' This has the same effect as pressing the Windows+M key combinationSub MinimizeAllWindows(Optional Restore As Boolean) Dim hWnd As Long ' get the handle of the taskbar hWnd = FindWindow("Shell_TrayWnd", vbNullString) ' Minimize or restore all windows If Restore Then SendMessage hWnd, WM_COMMAND, MIN_ALL_UNDO, ByVal 0& Else SendMessage hWnd, WM_COMMAND, MIN_ALL, ByVal 0& End IfEnd Sub 
7 Ways Technology Has Changed Traditional Payments
In today’s digital world, technology has changed how we make payments. From contactless cards to mobile wallets, it’s now easier
January 26, 2023
