Nevermind I figured out a way to work around it by using the following code. Try If tsbBold.Checked = False Then tsbBold.Checked = True For Each ctl As Control In TabControl1.SelectedTab.Controls If TypeOf ctl Is RichTextBox Then Dim rtb As RichTextBox rtb = ctl Dim selBold As New Font(rtb.Font, FontStyle.Bold) rtb.SelectionFont = selBold End If Next ElseIf tsbBold.Checked = True Then tsbBold.Checked = False For Each ctl As Control In TabControl1.SelectedTab.Controls If TypeOf ctl Is RichTextBox Then Dim rtb As RichTextBox rtb = ctl Dim selNotBold As New Font(rtb.Font, FontStyle.Regular) rtb.SelectionFont = selNotBold End If Next End If Catch ex As Exception MessageBox.Show(MsgBoxStyle.Exclamation, "An error has occured. Please try your selection again") End Try If there is a better or easier way please let me know. Thanks, Taen Karth