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