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が外れるが最後は完成

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