ویژوال بیسیک کد رنگ را به صورت BBGGRR ذخیره می کند ؛ ما باید قالب رنگ را به RRGGBB# تبدیل کنیم ؛ یعنی جای کد رنگ قرمز با آبی باید عوض شود.
تابع زیر اینکار را انجام می دهد:
-
Function VB2HTMLColor(color As Long) As String
-
Dim aux As String
-
aux = Right("00000" & Hex(color), 6)
-
VB2HTMLColor = "#" & Right(aux, 2) & Mid(aux, 3, 2) & Left(aux, 2)
-
End Function
