… = Color[…] (gb.image)

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

Divide un color en sus componentes, y los devuelve como un objeto ColorInfo.