Start a new project then add a command button to the form.Cut and paste the code below to your project. Open several applications and then run the program, when you click on the command button all the apps that are running will be minimized.

This would be a good program to put in the system tray. Then by double clicking the icon can immediately minimize all open windows.

==========================================================
Option Explicit
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags _
As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
Private Sub Command1_Click()
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub