获取Windows 外壳信息通知（VB源程序）

从网上看了一篇《分享windows的秘密－外壳通知消息》的文章，感觉很不错，可是它是delphi的程序，和VB相差很大，API在VB中没有对应的声明，并且一些结构体在VB中没有现成的定义，所以很是研究了一番，优盘的插入、拔出，光盘的插入、取出都有了相应的通知，效果不错。

可以接收的消息如下：

  SHCNE_ASSOCCHANGED  一个文件关联被改变了  SHCNE_ATTRIBUTES    一个项目或文件夹的属性被改变了  SHCNE_CREATE        文件夹的外壳成员被创建了  SHCNE_DELETE        非文件夹的外壳成员被删除了  SHCNE_DRIVEADD      添加了一个驱动器  SHCNE_DRIVEADDGUI   通过外壳添加的驱动器  SHCNE_DRIVEREMOVE