Help With Menu

Hi I am making a menu and 1 of the functions of menu is a button which you click is called Colour when you click Colour the background of the form is suppose to change. I want it to be 1 of 3 colours every time but it seems to only want to be 1 colour the way its programmed can anyone help me so it is random here is what i have so far.

Private Sub mnuColour_Click()
Form.BackColor = vbRed
Form.BackColor = vbBlue
Form.BackColor = vbGreen
End Sub

The colouyr it wants to be is vbgreen i however want it to be 1 of the three not the same green everytime you click it.

Try this:

VB Code:

Option Explicit
    Private colours(2) As Long
 
Private Sub Form_Load()
    Randomize
    colours(0) = vbRed: colours(1) = vbBlue: colours(2) = vbGreen
End Sub
 
Private Sub mnuColour_Click()
    Me.BackColor = colours(CInt(Rnd() * 2))
End Sub

Quote:

---

Originally Posted by sh4d0w

The colouyr it wants to be is vbgreen i however want it to be 1 of the three not the same green everytime you click it.

---

Are you saying that everytime Green comes up you want it to be a different shade of green? :confused:

Thank you very much that helped alot it worked!