Public Class Exer2
Private Sub btnPlayNow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayNow.Click
lblFullText.Visible = True
lblFullText.Text = “Welcome” & ” ” & txtfname.Text & ” ” & txtlname.Text & ” ” & “to What’s the Word!”
End Sub
Private Sub btnCheckAnswer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckAnswer.Click
If txtAnswer.Text = “Fire” Then
lblOtherText.Visible = True
lblOtherText.Text = “Congratulations! You got the correct answer! Palakpakan!”
Else
lblOtherText.Visible = True
lblOtherText.Text = “Inccorect Answer! Please Try Again!”
End If
End Sub
End Class
Advertisement
