Private PS_RGB&()
 
Private Sub Form_Load()
 
  Dim a&, b&, c&, N&
 
  N = 0
  ReDim PS_RGB(&H7FFF)
  For a = 0 To 31
    For b = 0 To 31
      For c = 0 To 31
        PS_RGB(N) = RGB(c / 31 * 255, b / 31 * 255, a / 31 * 255)
        N = N + 1
      Next c
    Next b
  Next a
 
End Sub

  RGB_Farbe = PS_RGB(PS_Farbe And &H7FFF)

Gruss,

Zardoz