 CreateBitmapIndirect Lib "gdi32" (lpBitmap As BITMAP)
 As Long

' Text functions:
Private Type RECT
    Left As Long
    TOp As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function PtInRect Lib "USER32" (lpRect As RECT, ByVal ptX As
 Long, ByVal ptY As Long) As Long
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_BOTTOM = &amp;H8&amp;