by waqas ahmed (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 18th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Create the color pallet
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label11.Visible = True
Label12.Visible = True
Label13.Visible = True
Label14.Visible = True
Label15.Visible = True
Label16.Visible = True
Label17.Visible = True
Label18.Visible = True
Label19.Visible = True
Label20.Visible = True
End Sub
Private Sub Label1_Click()
Label21.BackColor = Label1.BackColor
Label1.Visible = False
End Sub
Private Sub Label10_Click()
Label21.BackColor = Label10.BackColor
Label10.Visible = False
End Sub
Private Sub Label11_Click()
Label21.BackColor = Label11.BackColor
Label11.Visible = False
End Sub
Private Sub Label12_Click()
Label21.BackColor = Label12.BackColor
Label12.Visible = False
End Sub
Private Sub Label13_Click()
Label21.BackColor = Label13.BackColor
Label13.Visible = False
End Sub
Private Sub Label14_Click()
Label21.BackColor = Label14.BackColor
Label14.Visible = False
End Sub
Private Sub Label15_Click()
Label21.BackColor = Label15.BackColor
Label15.Visible = False
End Sub
Private Sub Label16_Click()
Label21.BackColor = Label16.BackColor
Label16.Visible = False
End Sub
Private Sub Label17_Click()
Label21.BackColor = Label17.BackColor
Label17.Visible = False
End Sub
Private Sub Label18_Click()
Label21.BackColor = Label18.BackColor
Label18.Visible = False
End Sub
Private Sub Label19_Click()
Label21.BackColor = Label19.BackColor
Label19.Visible = False
End Sub
Private Sub Label2_Click()
Label21.BackColor = Label2.BackColor
Label2.Visible = False
End Sub
Private Sub Label20_Click()
Label21.BackColor = Label20.BackColor
Label20.Visible = False
End Sub
Private Sub Label3_Click()
Label21.BackColor = Label3.BackColor
Label3.Visible = False
End Sub
Private Sub Label4_Click()
Label21.BackColor = Label4.BackColor
Label4.Visible = False
End Sub
Private Sub Label5_Click()
Label21.BackColor = Label5.BackColor
Label5.Visible = False
End Sub
Private Sub Label6_Click()
Label21.BackColor = Label6.BackColor
Label6.Visible = False
End Sub
Private Sub Label7_Click()
Label21.BackColor = Label7.BackColor
Label7.Visible = False
End Sub
Private Sub Label8_Click()
Label21.BackColor = Label8.BackColor
Label8.Visible = False
End Sub
Private Sub Label9_Click()
Label21.BackColor = Label9.BackColor
Label9.Visible = False
End Sub