Attribute VB_Name = "ScreenRefresh"
Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long

Public Const SHCNE_ASSOCCHANGED = &H8000000
Public Const SHCNF_FLUSH = &H1000
