how do I make it so that when A person clicks on a label, make the color Pallette appear, then let the person choose a color, then make that color the back color of label1?
Printable View
how do I make it so that when A person clicks on a label, make the color Pallette appear, then let the person choose a color, then make that color the back color of label1?
Code:'use the commondialog control to give user
'the ability to change the form's backcolor
'uses Label1 and CommonDialog1
Option Explicit
Private Sub Command2_Click()
End Sub
Private Sub Form_Load()
'set the flag
CommonDialog1.Flags = cdlCCRGBInit
End Sub
Private Sub Label1_Click()
'show the color box
CommonDialog1.ShowColor
'accept the color selected and color form
Label1.BackColor = CommonDialog1.Color
End Sub
thanks