d
   End If
      
   If Not bDrawn Then
      SelectClipRgn lHDC, 0
      DeleteObject hRgn
      
      ' Draw border:
      Select Case m_eBorderStyle
      Case EVPRGRaised
         Select Case m_eAppearance
         Case EVPRGFlat
            Border lHDC, EVPRGFlat, tWR, True
         Case EVPRG3DThin
            Border lHDC, EVPRG3DThin, tR, True
         Case EVPRG3D
            Border lHDC, EVPRG3D, tWR, True
         End Select
      Case EVPRGInset
         Select Case m_eAppearance
         Case 