Til rgb(???,???,???) - Vigtigt!

Public Function RedFromRGB(ByVal rgb As Long) As Integer
  RedFromRGB = &HFF& And rgb
End Function

Public Function GreenFromRGB(ByVal rgb As Long) As Integer
  GreenFromRGB = (&HFF00& And rgb) \\ 256
End Function

Public Function BlueFromRGB(ByVal rgb As Long) As Integer
  BlueFromRGB = (&HFF0000 And rgb) \\ 65536
End Function

Tak for det!

Det virker fantastisk!!
Man kan få skjulte farver frem i et billede!!!