textQuotation

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim msg As String = "Skittles is an old form of bowling " &
        "in which a wooden disk is used to knock " &
        "down nine pins arranged in a square. "
        If TextBox2.Text.ToUpper = "N" Then
            MessageBox.Show(msg, "")
        End If
        TextBox1.Text = "Life ain't all beer  &  skittles. – Du Maurier (1894)."
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
    End Sub
End Class