http://books.google.com/books?id=rec...lution&f=false

Question number 7: Movie Ticket Solution

I have coded with the following; however, the price field remains blank after I have coded the btnIf. Here is my code:
Private Sub btnIf_Click(sender As Object, e As EventArgs) Handles btnIf.Click
Dim txtAge As Integer
Dim lblPrice As Integer

If txtAge < 3 Then
lblPrice = 0

ElseIf txtAge > 3 Then
lblPrice = 9

ElseIf txtAge < 64 Then
lblPrice = 9

ElseIf txtAge < 65 Then
lblPrice = 6

End If

End Sub