… = Color[…] (gb.image)

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

Décompose une couleur en ses composantes, et les retourne dans un objet ColorInfo.