Private Sub LongToRGB(ByVal RGBval As Long)
cRed = RGBval And 255
cGreen = (RGBval \ 256 ^ 1) And 255
cBlue = (RGBval \ 256 ^ 2) And 255
Label1 = cRed & "-" & cGreen & "-" & cBlue
End Sub