g = 2
   End If

      
   LSet tWR = tR
   If m_eBorderStyle &gt; EVPRGNone Then
      If bDrawn Then
         InflateRect tR, -1, -1
      Else
         If m_eAppearance = EVPRG3D Then
            InflateRect tR, -2, -2
         Else
            InflateRect tR, -1, -1
         End If
      End If
   End If
   
   If (m_bShowText) And Len(m_sText) &gt; 0 Then
      bDrawText = True
   End If
   If (bDrawText) And Not (bDrawn) Then
      Set iFnt = Font
      hFntOld = SelectObject(lHDC, iFnt.hFont)
      S