[VB] RGB >> HEX

[Verwijderd]

best handig stukje :

code:

Dim r, G, b
r = Hex(Color Mod 256)
G = Hex((Color \ 256) Mod 256)
b = Hex(Color \ 65536)
If Len(r) < 2 Then r = "0" & r
If Len(G) < 2 Then G = "0" & G
If Len(b) < 2 Then b = "0" & b
GetHexVal = "#" & r & G & b

[whoami]

Waarschijnlijk wel.... wat wil je hier nu mee bewijzen?