Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(hWnd1 As Long, hWnd2 As Long, lpsz1 As String, lpsz2 As String) As Long

'タスクバーのハンドル
hTaskBar =FindWindow("Shell_TrayWnd", NULL)
hTaskTry =FindWindowEx(hTaskBar, 0, "TrayNotifyWnd", NULL)
'XP用
hTaskBar =FindWindowEx(hTaskBar, 0, "ReBarWindow32", NULL)
hTaskBar =FindWindowEx(hTaskBar, 0, "MSTaskSwWClass", NULL)
hTaskBar =FindWindowEx(hTaskBar, 0, "ToolbarWindow32", NULL)

hTaskBar =FindWindowEx(hTaskBar, 0, NULL, "AB") <---------- 失敗