Changing background color of a userform after each click

[lezawang]

Hi
I want to change the background color of a userform when a user click anywhere inside the form. Change the color different from previous one whenever user click on the form. I tried the following code but did not work. Any help would be very much appreciated.

Private Sub UserForm_Click()
     'the name of the form is myform
     myform.BackColor = myform.backColor + 1
End Sub

ps: &H0080FF80& is the current color code of the userform's background color property.

 

[Yongle]

A kaleidoscope of colour for your users ...

Private Sub UserForm_Click()
    MyForm.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
End Sub