Help With Menu

[sh4d0w]

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.

[gavio]

Try this:

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

[Hack]

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?

[sh4d0w]

Thank you very much that helped alot it worked!