سؤال في تغيير خط محتويات RichTextBox

الحمد لله لقد وجدت الحل ... :D :D

وهو استبدال الكود الموجود في حدث DropDownClosed لأداة التحكم ComboBox1 بالكود التالي :

		Try
			Dim FontSize As Single
			Dim FontStyle As FontStyle
			Dim currentFont As Font = RichTextBox1.SelectionFont
			If Not currentFont Is Nothing Then
				FontSize = RichTextBox1.SelectionFont.Size
				FontStyle = RichTextBox1.SelectionFont.Style
				RichTextBox1.SelectionFont = New Font(ComboBox1.Text, FontSize, FontStyle)
			Else
				RichTextBox1.Font = Nothing
				FontSize = RichTextBox1.SelectionFont.Size
				FontStyle = RichTextBox1.SelectionFont.Style
				RichTextBox1.SelectionFont = New Font(ComboBox1.Text, FontSize, FontStyle)
			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message, "خط", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading, False)
		End Try

والله الموفق ..