= b + 8
      End With
   Next i
   
End Sub
Private Sub CreateHalfTone()
Dim lIndex As Long
Dim r As Long, g As Long, b As Long
Dim rA As Long, gA As Long, bA As Long
Dim l As Long, i As Long

   ' Halftone 256 colour palette
   For b = 0 To &amp;H100 Step &amp;H40
      If b = &amp;H100 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
         Fo