               hR = GetThemeInt(hTheme, 0, 0, PROGRESSSPACESIZE,
                lSegmentSpacing)
               If (hR = S_OK) Then
                  lSegmentWidth = lSegmentWidth + lSegmentSpacing
                  If (lWidth &gt; lHeight) Then
                     hR = DrawThemeBackground(hTheme, lHDC, 1, 0, tR, tR)
                  Else
                     hR = DrawThemeBackground(hTheme, lHDC, 2, 0, tR, tR)
                  End If
                  If (hR = S_OK) Then
                     bDrawn = T