Pic Color >> HTML Color

[KDima]

сабж

Тестил метод SSecurity:

Private Function Reverse(ByVal rgb As Long) As String
Dim AA1 as String
AA1 = Hex(rgb)
AA1 = String(6 - Len(AA1), "0") + AA1
Reverse = Right(AA1, 2) + Mid(AA1, 3, 2) + Left(AA1, 2)
End Function

Пишет что не может выполнить String(-2, "#80000005")

[tyomitch]

Потому что &H80000005 - это системный цвет, в HTML Color ему соответствует строка "window" (а не "#xxxxxx")

[KDima]

Пасиб!