任意usb设备插入后托盘气泡提示

求一个插入任意usb设备后托盘气泡提示“有设备插入”的VB小程序代码
大约知道是用wm_devicechage监测，但是一直搞不明白，求指条明路，或求个代码！ 看看这个用的着不。托盘的代码太多了，搜下。
http://stackoverflow.com/questions/4734957/using-the-sysinfo-control-in-vb6-to-detect-when-a-usb-device-has-been-plugged-un 1、使用Hook获取U盘插入，拔除的消息
http://topic.csdn.net/u/20120110/10/0ca9743d-dd80-4d5e-bb5e-99ce186bafcf.html
2、将气泡代码加入其中
http://download.csdn.net/detail/veron_04/1640888

补充：VB ,  基础类