VB code for making text bold, strike through and underline

 VB code for converting text lower to upper case using radio buttons and to make bold, strike through and underline using check boxes.

Step1: Place One Label, one Text Box, Two Frames, Two Option Buttons, Three Check Boxes and a Command Button on the Form1

Step2: Rename the Control Caption in the Property Window as follows

Form1 -> Option & Check

Label1 -> Enter Text Here:

Frame1 -> Case

Frame2 -> Effects

Option1 -> Upper

Option2 -> Lower

Check1 -> Strike Through

Check2 -> Under Line

Check3 -> Bold

Command1 -> Exit

Change the Text1 Properties as multiline True and ScrollBars as Both

Enter the following codes in the corresponding controls

Private Sub Check1_Click()

If Check1.Value = 1 Then

Text1.Font.Strikethrough = True

Else

Text1.Font.Strikethrough = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Text1.Font.Underline = True

Else

Text1.Font.Underline = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

Text1.Font.Bold = True

Else

Text1.Font.Bold = False

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Option2.Value = True

End Sub

Private Sub Option1_Click()

If Option1.Value = True Then

 Text1.Text = UCase(Text1)

 End If

 End Sub

Private Sub Option2_Click()

If Option2.Value = True Then

Text1.Text = LCase(Text1)

End If

End Sub

 Step3: Run the Application by pressing F5