[VB6] Trasformare colori RGB in codice HTML

[Bisco]

Forse intendevi: "se ho un valore LONG, risultato di una RGB(), posso trasformarlo in HTML?"

Public Function RGB2HTML(ByVal lColore As Long) As String
Dim sRGB, r, g, b

   sRGB = Format(Hex(lColore), "000000")
   
   r = Right(sRGB, 2)
   g = Mid(sRGB, 3, 2)
   b = Left(sRGB, 2)
   
   RGB2HTML = "#" & r & g & b
End Function

e la usi così:

sHtml = RGB2HTML (lColor)

oppure

sHtml = RGB2HTML (RGB(r, g, b))