VB程序如何检测到U盘的插拔

VB程序如何检测到U盘的插拔 Option Explicit '子类化窗体消息处理函数时需要使用的API Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Private Const GWL_WNDPROC = -4 Private Const WM_DEVICECHANGE As Long = &H219; Private Const DBT_DEVICEARRIVAL As Long = &H8000;& Private Const DBT_DEVICEREMOVECOMPLETE As Long = &H8004;&