Bolding specific lines in textbox and indenting to the right side

[jmsutton334]

I am trying to bold just certain lines in the textbox, not all of the output. And also am trying to pad a couple of lines all the way to the far right of the textbox, not all of the lines, to make it look cleaner.

I am trying to bold all of the (txtBoxCourse textboxes) and trying to indent all of the (txtBoxGrades textboxes) to the right.

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

    Dim semester, Newline As String
    Dim totalGPA As Double = QualityPoints / txtBoxTotalHours.Text

    Newline = System.Environment.NewLine
    semester = CStr(txtBoxResults.Text)
    txtBoxTotalGPA.Text = CStr(totalGPA)
    txtBoxTotalGPA.Text = Math.Round(totalGPA, 3)

    If radButtonFall.Checked Then

        semester = "Fall"

    ElseIf radButtonSpring.Checked Then

        semester = "Spring"

    ElseIf radButtonSummer.Checked Then

        semester = "Summer"

    End If


    txtBoxResults.Text = (semester & " " & "Semester : ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & "Total Hours : " & txtBoxTotalHours.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & "Total Qualit Points : " & txtBoxTotalQualityPoints.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & "Total " & semester & " " & "GPA : " & txtBoxTotalGPA.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & "Enrolled Courses : ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse1.Text & "     " & txtBoxGrade1.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse2.Text & "     " & txtBoxGrade2.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse3.Text & "     " & txtBoxGrade3.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse4.Text & "     " & txtBoxGrade4.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse5.Text & "     " & txtBoxGrade5.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse6.Text & "     " & txtBoxGrade6.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse7.Text & "     " & txtBoxGrade7.Text)
    txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
    txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse8.Text & "     " & txtBoxGrade8.Text)

End Sub

Thanks for any help!