GHT Or BF_BOTTOM)
Private Const BF_SOFT = &amp;H1000    ' For softer buttons
Private Const BF_FLAT = &amp;H4000    ' For flat rather than 3D borders
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hDC As
 Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal
 wFormat As Long) As Long
Private Const DT_SINGLELINE = &amp;H20
Private Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, ByVal
 crColor As Long) As Long
Private Declare Function SetBkColor Lib "gd