0 Then
         bA = b - 1
      Else
         bA = b
      End If
      For g = 0 To &amp;H100 Step &amp;H40
         If g = &amp;H100 Then
            gA = g - 1
         Else
            gA = g
         End If
         For r = 0 To &amp;H100 Step &amp;H40
            If r = &amp;H100 Then
               rA = r - 1
            Else
               rA = r
            End If
            lIndex = lIndex + 1
            With m_tPal(lIndex)
               .rgbRed = rA: .rgbGreen = gA: .rgbBlue = bA
            