EXTERNALLEADING = &amp;H200&amp;
    Private Const DT_EXPANDTABS = &amp;H40&amp;
    Private Const DT_CHARSTREAM = 4&amp;
    Private Const DT_NOPREFIX = &amp;H800&amp;
Private Type DRAWTEXTPARAMS
    cbSize As Long
    iTabLength As Long
    iLeftMargin As Long
    iRightMargin As Long
    uiLengthDrawn As Long
End Type
Private Declare Function DrawTextEx Lib "USER32" Alias "DrawTextExA" (ByVal hdc
 As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As
 Long, lpDrawTextParams As DRAWT