Convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale

Per convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale, possiamo adottare il calcolo contenuto nel seguente codice:

Public Sub Main()
 
 Dim b, g, r, a As Byte
 Dim colore As Long
 
  b = 255
  g = 150
  r = 100
  a = 255
  
  colore = CLong(b Or (g * CInt(2 ^ 8)) Or (r * CInt(2 ^ 16)) Or (a * CInt(2 ^ 24)))
  
  Print Val("&" & Hex(colore, 8) & "&"), Hex(colore, 8)
  
End