… = Color[…] (gb.image)

Dim hColorInfo As ColorInfo
hColorInfo = Color [ Color As Integer ]

Divide un colore nei suoi componenti e li restituisce come un oggetto ColorInfo.