チェックボックスを使って書体の変更したいのですが

VB2008を使ってます。
チェックボックスを使ってIF文でbold,italic,underlineの書体を変更するコードを作りたいのですが、何度やってもうまくいきません。

各チェックボックスをチェックしたら、１つだけにチェックしたら１つ、２つチェックしたら２つの書体にといった感じで書体が変わるようにしたいのですが、以下のコードだと組み合わせのうち半分がきちんと動きません。

周りに詳しい方もおらず、こちらに相談させて頂きました。

アドバイスよろしくお願いします。


if chkBold.checked then
lbl.font=new font(lbl.font,fontstyle.Bold)

  if chkItalic.checked then
  lbl.font=new font(lbl.font,fontstyle.Italic)
  
   if chkUnderline.checked then
   lbl.font=new font(lbl.font,fontstyle.Underline)
   
     if chkBold.checked and chkItalic.checked then
     lbl.font=new font(lbl.font,fontstyle.Bold or fontstyle.Italic)

      if chkBold.cheked and chkUnderline.checked then
      lbl.font=new font(lbl.font,fontstyle.Bold or fontstyle.Underline)
        
        if chkBold.checked and chkItalic.checked and chkUnderline.checked then
        lbl.font=new font(lbl.font,fontstyle.Bold or fontstyle.Italic or 
                                                              fontstlye.Underline)
       endif
      endif
    endif
   endif
  endif
else
    lbl.font=new font(lbl.font,fontstyle.regular)

      if chkItalic.checked then
      lbl.font=new font(lbl.font,fontstyle.Italic)

         if chkUnderline.checked then
         lbl.font=new font(lbl.font,fontstyle.Underline)

           if chkItalic.checked and chkUnderline.checked then
           lbl.font=new font(lbl.font,fontstyle.Italic or fontstyle.Underline)
       
           endif
         endif
       endif
     endif

※このコードを組み合わせを変えて３種コーディングしました。
以下に表示の可・不可を書いておきます。

１⇒Bold、２⇒Italic、３⇒Underline

１，２，３単体のチェックはいずれもOK

１＋２　OK
１＋３　OK
２＋３　２つ目でItalicが外れる
２＋１　OK
３＋１　２つ目でUnderlineが外れる
３＋２　２つ目でUnderlineが外れる
１＋２＋３　OK
１＋３＋２　OK
２＋１＋３　OK
２＋３＋１　２つ目でBoldが外れるが、最後は完成
３＋１＋２　２つ目でUnderlineが外れ、３つ目でBoldが外れる
３＋２＋１　２つ目でUnderlineが外れるが最後は完成

うまくいく方法をご存知の方、アドバイスどうぞよろしくお願いします。

    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

さっそくのご返答ありがとうございます。

始めの質問の時に書き忘れましたが、今回のコードはcheckedboxのcheckedchangedイベントで作ってます。
アドバイス頂いたコードも早速試してみますが、checkedchangedイベントだとどうなりますでしょうか？

> checkedchangedイベントだとどうなりますでしょうか？
イベントの違いによる問題点を洗い出し、
サンプルコードを解析し、影響を調べ、
テスト項目を検討し、テスト結果を評価します。

各ステップで第３者を交えたレビューを行ってください。

教えていただいたコードを参考になんとか動くようになりました。
ありがとうございました。