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
 
' Il valore del colore di formato RGBA va considerato secondo Gambas come segue: alfa, rosso, verde, blu.
  a = 255
  r = 100
  g = 150
  b = 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