xcolorevbacodice

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 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 colora1(codice)
Case 2
codice = vbGreen
Call colora1(codice)
Case 3
codice = vbBlue
Call colora1(codice)
Case 4
codice = vbYellow
Call colora1(codice)
Case 5
codice = vbCyan
Call colora1(codice)
Case 6
codice = vbMagenta
Call colora1(codice)
Case 7
codice = vbWhite
Call colora1(codice)
Case 8
codice = vbBlack
Call colora1(codice)
End Select
End Sub

Private Sub CommandButton4_Click()
Frame1.Visible = True
End Sub

Private Sub CommandButton5_Click()
Frame1.Visible = False
End Sub
Private Sub colora(x As String)
Image2.BackColor = x
Image2.ControlTipText = "codice=" & x
End Sub
Private Sub colora1(x As String)
Image3.BackColor = x
Image3.ControlTipText = "codice=" & x
End Sub


Private Sub CommandButton6_Click()
Rem codice
Label11.Visible = True
Label12.Visible = True
End Sub

Private Sub CommandButton7_Click()
Rem codice
Label11.Visible = False
Label12.Visible = False
End Sub

Private Sub CommandButton8_Click()
Rem spiega
Label13.Visible = True
Label14.Visible = True
End Sub

Private Sub CommandButton9_Click()
Rem spiega
Label13.Visible = False
Label14.Visible = False
End Sub

Private Sub UserForm_Click()
Frame1.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
End Sub