How to detect Outlook98's New Mail icon in Tray?

I want to have my VB app take some action when a new email is received. How can I detect when Outlook 98 displays the envelope icon in the Tray?