[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

اخوتي الكرام في المنتدى

لدي textbox فيه نص يمكنني عمله bold او italic او underline  كل على حدة بالكود المرفق

والسؤال هو كيف يمكنني تطبيق bold و italic معا او  bold و italic و underline معا 

وجزاكم الله خير جزاء

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyFontStyle As FontStyle
       MyFontStyle = FontStyle.Regular
       If ChkBox_Bold.Checked Then
           MyFontStyle = FontStyle.Bold
       End If
       If ChkBox_Italic.Checked Then
           MyFontStyle = FontStyle.Italic
       End If
       If ChkBox_UnderLine.Checked Then
           MyFontStyle = FontStyle.Underline
       End If
       TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, MyFontStyle)
   End Sub