ВБА - часы, кнопка Пуск и т.д.

'блок к процедурам Показать_часы_на_панели_задач и Скрыть_часы_на_панели_задач
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
               (ByVal hWnd1 As Long, _
                ByVal hWnd2 As Long, _
                ByVal lpsz1 As String, _
                ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" ( _
        ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
'конец блока к процедурам Показать_часы_на_панели_задач и Скрыть_часы_на_панели_задач
 
'Visible Clock
Sub Показать_часы_на_панели_задач()
 
aClock = FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "TrayNotifyWnd", vbNullString), 0, "TrayClockWClass", vbNullString)
ShowWindow aClock, 4&
 
End Sub
 
'Hidden Clock
Sub Скрыть_часы_на_панели_задач()
 
aClock = FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "TrayNotifyWnd", vbNullString), 0, "TrayClockWClass", vbNullString)
ShowWindow aClock, 0&
 
hWnd = FindWindow("Shell_TrayWnd", vbNullString)
aClock = FindWindowEx(hWnd, 0, "Button", vbNullString)
ShowWindow aClock, 4&
 
End Sub
 
'блок к процедурам Открытие_панели_задач и Закрытие_панели_задач
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
        
Private Declare Function ShowWindow Lib "user32.dll" ( _
        ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long
'конец блока к процедурам Открытие_панели_задач и Закрытие_панели_задач
 
'VisibleTaskBar
Sub Открытие_панели_задач()
 
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 4&
 
End Sub
 
'HiddenTaskBar
Sub Закрытие_панели_задач()
 
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 0&
 
End Sub