Hi all, I just finish my little project and it runs fine...but I still want to add some thing more in it..but still don't fingure out the eoor..SO some one plz help..

this is my project..about slot machine

I have 3 label:
lblWheel1
lblWheel2
lblWheel3

1 button:
btnPlay

1 textbox
txtInfo

and here my code

module1.vb

Module Module1
Public wheel1 As Integer
Public wheel2 As Integer
Public wheel3 As Integer
Public Temp1 As Integer
Public Temp2 As Integer
Public Temp3 As Integer



End Module



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
wheel1 = Int(Rnd() * 3 + 1)
wheel2 = Int(Rnd() * 3 + 1)
wheel3 = Int(Rnd() * 3 + 1)
Temp1 = wheel1 + 164
Temp2 = wheel2 + 164
Temp3 = wheel3 + 164
lblWheel1.Text = Chr(Temp1)
lblWheel2.Text = Chr(Temp2)
lblWheel3.Text = Chr(Temp3)


If Temp1 = Temp2 = Temp3 Then
MsgBox("congratulation,You r Win")
Else
txtInfo.Text = "Sorry, Please try again"

End If

End Sub

I don't know, why when Im win, but the message Box doesn't appear, and I just only see" sorry, please try a gain message" SOme one know how to fix, Plz help me..Thank You