Převod RGB na systémovou barvu
R = Val(InputBox$("Hodnota červené")) B = Val(InputBox$("Hodnota modré")) G = Val(InputBox$("Hodnota zelené"))
Lng$ = B * 65536 + G * 256 + R MsgBox Lng$
End Sub
Zpět