Public Class Form1
    'Programmer: Janet Joy
    Private Sub BtnColor_Click(sender As System.Object, e As System.EventArgs) Handles BtnColor.Click
	    'Let user select a color when they click the color button
        Me.ColorDialog1.ShowDialog()
        Me.LblWelcome.ForeColor = ColorDialog1.Color
    End Sub

    Private Sub BtnFont_Click(sender As System.Object, e As System.EventArgs) Handles BtnFont.Click
	    'Let user select a font when they click the font button
        Me.FontDialog1.ShowDialog()
        Me.LblWelcome.Font = FontDialog1.Font
    End Sub

    Private Sub BtnMessage_Click(sender As System.Object, e As System.EventArgs) Handles BtnMessage.Click
       'Let user select a message to display when they click the message button
	    Dim message As String
        message = InputBox("Enter the message", "Message")
        If message <> "" Then
            Me.LblWelcome.Text = message
        End If

    End Sub
End Class