Re: Segments

Hi again Ivar. Regarding those colours you are using, I can see that a
number of them will probably not be valid "solid colours" on a typical
16 bit Windows display. Are you sure you have tried them on a machine
running at 16 bit? The 100 for example comes up at 99 on my machine
(when set to 16 bit), which complies well with the formalue that I
posted earlier. Set your own machine to 16 bit colour depth and try the
following code. Do you actuyally get a 100, or is it 99. By the way, I
would appreciate it if others would also try this test for me and let
me know what they get. There should be just 64 colours in the list, and
the colour around the 100 mark should be 99.

Mike

Private Sub Command1_Click()
Dim n As Long, p As Long, oldp As Long
oldp = -1
For n = 1 To 255
PSet (0, 0), n
p = Point(0, 0)
If p <> oldp Then
List1.AddItem p
oldp = p
End If
Next n
End Sub

.