     lHDC, _
            0, 0, lWidth, lHeight, _
            m_picBack.hDC(m_picBack.Width, m_picBack.Height), _
            0, 0, _
            m_picBack.Width, m_picBack.Height, _
            vbSrcCopy
      End If
   Else
      If (m_bXpStyle) Then
         On Error Resume Next
         hTheme = OpenThemeData(hWnd, StrPtr("Progress"))
         On Error GoTo 0
         If (hTheme &lt;&gt; 0) Then
            hR = GetThemeInt(hTheme, 0, 0, PROGRESSCHUNKSIZE, lSegmentWidth)
            If (hR = S_OK) Then
