clare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect
 As RECT) As Long
Public 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
'#if(WINVER &gt;= =&amp;H0500)
Public Const DT_NOFULLWIDTHCHARBREAK = &amp;H80000
'#if(_WIN32_WINNT &gt;= =&amp;H0500)
Public Const DT_HIDEPREFIX = &amp;H100000
Public Const DT_PREFIXONLY = &amp;H200000
'#endif /* _WIN32_WINNT &gt;= =&amp;H0500 *