Public Class ShowText

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fontsize As Single = txtPoints.Text
        Dim fontstyle As FontStyle = Drawing.FontStyle.Regular

        If (butBold.Checked) Then
            fontstyle = fontstyle Or Drawing.FontStyle.Bold
        End If
        If (butItalic.Checked) Then
            fontstyle = fontstyle Or Drawing.FontStyle.Italic
        End If

        txtLabel.Font = New Font("Verdana", fontsize, fontstyle)

        If butRed.Checked Then
            txtLabel.ForeColor = Color.Red
        ElseIf butGreen.Checked Then
            txtLabel.ForeColor = Color.Green
        ElseIf butBlue.Checked Then
            txtLabel.ForeColor = Color.Blue
        Else
            txtLabel.ForeColor = Color.Black
        End If
    End Sub
End Class