 ByVal lpString As String, ByVal
 nMaxCount As Long)
Declare Function SetDlgItemInt&amp; Lib "user32" (ByVal hDlg As Long, ByVal
 nIDDlgItem As Long, ByVal wValue As Long, ByVal bSigned As Long)

Public Const WM_CLOSE = &amp;H10&amp;
Public Const WM_COMMAND = &amp;H111&amp;
Public Const WM_USER = &amp;H400&amp;

Public Const CDM_FIRST = (WM_USER + 100)
Public Const CDM_GETFILEPATH = (CDM_FIRST + &amp;H1)

Public Const MAX_PATH = 260

Private m_hKeyHook  As Long

Public Sub InstallHook()
   If m_hKeyHook = 0