Str As String, ByVal nCount As Long, lpRect As RECT, ByVal
 wFormat As Long) As Long
Private Const DT_CALCRECT = &amp;H400
Private Const DT_CENTER = &amp;H1
Private Const DT_VCENTER = &amp;H4
Private Const DT_SINGLELINE = &amp;H20
Private Const DT_RIGHT = &amp;H2
Private Const DT_BOTTOM = &amp;H8
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal
 crColor As Long) As Long


Private Sub Form_Load()
Dim i As Long
Dim eStyle As ESTBRPanelStyle
Dim sText As String
Dim iImg As Long
Dim i