le Then
         TileArea _
            lHDC, _
            0, 0, _
            lWidth, lHeight, _
            m_picBar.hDC(m_picBar.Width, m_picBar.Height), _
            m_picBar.Width, m_picBar.Height, _
            0, 0
      Else
         StretchBlt _
            lHDC, _
            0, 0, lWidth, lHeight, _
            m_picBar.hDC(m_picBar.Width, m_picBar.Height), _
            0, 0, _
            m_picBar.Width, m_picBar.Height, _
            vbSrcCopy
      End If
   Else
      If bDrawn Then
      