Порт Apache Tomcat 8 не изменяется после редактирования server.xml

Private Sub changeFont(ByVal fontz As FontStyle, getStr As RichTextBox)
   Dim currentFont As System.Drawing.Font = txt.SelectionFont
   Dim newFontStyle As System.Drawing.FontStyle
   newFontStyle = fontz
   getStr.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
End Sub

Это изменит свойство шрифта выделенного текста. Образец:

changeFont(FontStyle.Italic, [textbox_name])