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
 
'Define Struct RECT ....
 
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
 
 
Private Const DT_CENTER = &H1
Private Const DT_SINGLELINE = &H20
Private Const DT_VCENTER = &H4
Private tmpCaption As String
 
Public Property Get Caption() As Variant
   Caption = tmpCaption
End Property
 
Public Property Let Caption(ByVal vNewValue As Variant)
   Dim nRect As RECT
   Dim rval As Long
 
   tmpCaption = vNewValue
   With nRect
      .Top = 0
      .Left = 0
      .Right = UserControl.ScaleWidth / Screen.TwipsPerPixelX
      .Bottom = UserControl.ScaleHeight / Screen.TwipsPerPixelY
   End With
 
   rval = DrawText(UserControl.hdc, vNewValue, Len(vNewValue), nRect, _
     DT_SINGLELINE Or DT_CENTER Or DT_VCENTER)
End Property