colorergbcodice

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

Private Sub CommandButton2_Click()
Dim n As String
n = TextBox1
If n = "r" Then
colore = &HFF&
End If
If n = "g" Then
colore = &HFF00&
End If
If n = "b" Then
colore = &HFF0000
End If
Image2.BackColor = colore
End Sub

Private Sub CommandButton3_Click()
Dim n As String
n = TextBox1
If n = "r" Then
colore = vbRed
End If
If n = "g" Then
colore = vbGreen
End If
If n = "b" Then
colore = vbBlue
End If
Image3.BackColor = colore
End Sub

Private Sub CommandButton4_Click()
Label8.Visible = True
Image4.Visible = True
Image5.Visible = True
Image6.Visible = True
End Sub

Private Sub CommandButton5_Click()
Label8.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Click()

End Sub