•Private Sub btnVote_Click(...)
• Handles btnVote.Click
• If radCandidate1.Checked Then
• txtVote.Text = "You voted for
Kennedy."
• ElseIf radCandidate2.Checked Then
• txtVote.Text = "You voted for
Nixon."
• Else
• txtVote.Text = "You voted for
neither."
• End If
•End
Sub