tte iItem, lPosition
   End If
   
End Function

Private Sub addWebSafePalette(ByVal iItem As Long, ByRef lPosition As Long)
Dim iR As Long
Dim iB As Long
Dim iG As Long
Dim tRGBQ As RGBQUAD
   For iR = 0 To &amp;HFF Step &amp;H33
      tRGBQ.rgbRed = iR
      For iG = 0 To &amp;HFF Step &amp;H33
         tRGBQ.rgbGreen = iG
         For iB = 0 To &amp;HFF Step &amp;H33
            ' don't add colours from the 16 colour palette:
            If Not ( _
               ((iR = 0) Or (iR = &amp;HFF)) And _
     