Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim flag As System.Drawing.FontStyle



        flag = FontStyle.Regular



        If chkBold.Checked Then

            flag = flag Or FontStyle.Bold

        End If

        If chkItalic.Checked Then

            flag = flag Or FontStyle.Italic

        End If

        If chkUnderline.Checked Then

            flag = flag Or FontStyle.Underline

        End If



        lbl.Font = New Font(lbl.Font, flag)

    End Sub