P°evod RGB na systΘmovou barvu
Private Sub Command1_Click()
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