Thanks for sharing.
It is working fine in XP
However the Sample project gives run time error 13, on this line -
IcoHwnd = GetSetting("S Msg", "Settings", "H_Msg")
This also happens when I run Sample project directly (not being called from the Tray application)
I have never used the Registry, so the solution is not jumping off the page at me.

Thanks,
Rob