quando
FindWindow("Shell_TrayWnd", vbNullString) > 0
allora la barra esiste

nota: vedi le api quando servono si usano