etBkMode lHDC, TRANSPARENT
      SetTextColor lHDC, TranslateColor(m_oForeColor)
      DrawText lHDC, " " &amp; m_sText &amp; " ", -1, tR, DT_SINGLELINE Or
       m_eTextAlignX Or m_eTextAlignY * 4
      SelectObject lHDC, hFntOld
   End If
   
   ' Draw bar:
   ' Get the bar rectangle:
   LSet tBR = tR
   If (m_lMax - m_lMin &gt; 0) Then
      fPercent = (m_lValue - m_lMin) / (m_lMax - m_lMin)
   Else
      fPercent = 0#
   End If
   If fPercent &gt; 1# Then fPercent = 1#
   If fPercent &lt; 0# Then fPerce