Вы наверно видели внизу слева, где значки для быстрого запуска прог(рядом с пуском), есть такая кнопочка, как"Свернуть все окна" и вам наверняка хотелось сделать такую же. Что ж, не проблема... Код очень маленький и понадобитсявсего один компонент - кнопка. Подготовка:
Компонент CommandButton с именем Command1
Пишем код:
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
Я думаю коментарии здесь излишни, просто запомните это или лучше сохраните куда-нибудь. Вот и все !
