change color of a buttons

[azhar2006]

Hello guys
I try to change the color of the buttons. Based on the value of a text box, and used this code but did not succeed to do so.

Private Sub Form_Load()
If Me.text = 1 Then
Me.Button1.ForeColor = RGB(170, 0, 0)
Else
Me.text = 2
Me.Button2.ForeColor = RGB(225, 0, 0)
Me.text = 3
Me.Button3.ForeColor = RGB(222, 0, 0)
End If


End Sub

Any help
Thanks in advance

[amrut]

Are you missing the elseif ?

Private Sub Form_Load()
If Me.text = 1 Then
Me.Button1.ForeColor = RGB(170, 0, 0)
ElseIf Me.text = 2 Then
Me.Button2.ForeColor = RGB(225, 0, 0)
ElseIf Me.text = 3 Then
Me.Button3.ForeColor = RGB(222, 0, 0)
End If


End Sub