ycolorevbacodice

Private Sub CommandButton1_Click()
r = TextBox1
g = TextBox2
b = TextBox3
Image1.BackColor = RGB(r, g, b)
Image1.ControlTipText = "RGB = " & r & "," & g & "," & b
End Sub

Private Sub CommandButton10_Click()
Rem red
Image4.BackColor = 255
Rem green
Image5.BackColor = 65280
Rem blue
Image6.BackColor = 16711680
Rem yellow
Image7.BackColor = 65535
Rem cyan
Image8.BackColor = 16776960
Rem magenta
Image9.BackColor = 16711935
Rem white
Image10.BackColor = 16777215
Rem back
Image11.BackColor = 0

End Sub

Private Sub CommandButton11_Click()
Image4.BackColor = vbWhite
Image5.BackColor = vbWhite
Image6.BackColor = vbWhite
Image7.BackColor = vbWhite
Image8.BackColor = vbWhite
Image9.BackColor = vbWhite
Image10.BackColor = vbWhite
Image11.BackColor = vbWhite
End Sub

Private Sub CommandButton2_Click()
Dim codice As String
n = TextBox1
Select Case n
Case 1
Rem red
codice = &HFF
Call colora(codice)
Case 2
Rem green
codice = &HFF00&
Call colora(codice)
Case 3
Rem blue
codice = &HFF0000
Call colora(codice)
Case 4
Rem yellow
codice = &HFFFFF
Call colora(codice)
Case 5
Rem cyan
codice = &HFFFF80
Call colora(codice)
Case 6
Rem nagenta
codice = &HFF00FF
Call colora(codice)
Case 7
Rem white
codice = &HFFFFFF
Call colora(codice)
Case 8
Rem back
codice = &H0&
Call colora(codice)
End Select
End Sub

Private Sub CommandButton3_Click()
Dim codice As String
n = TextBox1
Select Case n
Case 1
codice = vbRed
Call colorare(codice)
Case 2
codice = vbGreen
Call colorare(codice)
Case 3
codice = vbBlue
Call colorare(codice)
Case 4
codice = vbYellow
Call colorare(codice)
Case 5
codice = vbCyan
Call colorare(codice)
Case 6
codice = vbMagenta
Call colorare(codice)
Case 7
codice = vbWhite
Call colorare(codice)
Case 8
codice = vbBlack
Call colorare(codice)
End Select
End Sub

Private Sub colora(x As String)
Image2.BackColor = x
Image2.ControlTipText = "codice=" & x
End Sub


Private Sub colorare(x As String)
Image3.BackColor = x
Image3.ControlTipText = "codice=" & x
End Sub


Private Sub UserForm_Click()
End Sub