Write VB program to convert entered text in bold , italic , underline.

Write VB program to convert entered text in bold , italic , underline.

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

    Text1.FontBold = True

Else

    Text1.FontBold = False

End If

End Sub

 

Private Sub ChkItalic_Click()

If ChkItalic.Value = 1 Then

    Text1.FontItalic = True

Else

    Text1.FontItalic = False

End If

End Sub

 

Private Sub ChkUnderline_Click()

If ChkUnderline.Value = 1 Then

    Text1.FontUnderline = True

Else

    Text1.FontUnderline = False

End If

End Sub