'help needed quick...
'how to change the format of MText
'here are lines of code
' aim is to change to change the text string bold italic and font is Tahoma
'thanks
Sub Ch4_CreateMText()
Dim mtextObj As AcadMText
Dim insertPoint(0 To 2) As Double
Dim width As Double
Dim textString As String
insertPoint(0) = 2
insertPoint(1) = 2
insertPoint(2) = 0
width = 4
textString = "This is a text string for the mtext object."
' Create a text Object in model space
Set mtextObj = ThisDrawing.ModelSpace.AddMText(insertPoint, width, textString)
' how to change the text color and format???
End Sub