(ByVal nIndex As Long)
 As Long
Private Declare Function FillRect Lib "USER32" (ByVal hdc As Long, lpRect As
 RECT, ByVal hBrush As Long) As Long

' Key functions:
Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As
 Integer
'
' General
Private Declare Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long)
 As Long
Private Const SM_CYHSCROLL = 3

' SHAutoComplete:
Private Enum SHAutoCompleteFlags
   SHACF_DEFAULT = &amp;H0                           ' // Currently
    (SHACF