•Private Sub
btnDisplay_Click(...) _
• Handles btnDisplay.Click
• Dim message As String
• message = "Skittles is an old form of
bowling in " _
• & "which a wooden disk is used to
knock down nine" _
• & " pins arranged in a
square."
• If txtAnswer.Text.ToUpper = "N"
Then
• MsgBox(message, , "")
• End If
• txtQuote.Text = "Life ain't all beer
and skittles."
•End Sub