Minimize Semua Jendela Window

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	1	Caption	Minimize

Masukkan souce ini ke dalam Form :Private Sub Command1_Click() Call keybd_event(VK_LWIN, 0, 0, 0) Call keybd_event(&H4D, 0, 0, 0) Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0) End Sub

Masukkan souce ini ke dalam Module :Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_LWIN = &H5B Public Const KEYEVENTF_KEYUP = &H2