'Benötigt wird: eine Picturebox & Farbauflösung auf Highcolor!
Private Sub Form_Activate()
 
Dim Farbe&
 
If MsgBox("Farbauflösung auf Highcolor?", vbYesNo) = vbNo Then
  Unload Me
  Exit Sub
End If
Randomize
With Picture1
  .ScaleMode = vbPixels
  .AutoRedraw = True
  Do
    Farbe = Rnd * vbWhite
    Picture1.PSet (0, 0), Farbe
    If MsgBox("Geschrieben:" & Farbe & vbCr & Space(7) & "Gelesen:" & .Point(0, _
      0), vbRetryCancel) = vbCancel Then Exit Do
  Loop
End With
 
End Sub

Gruss,

Zardoz