how to do select an point insert text?
dim pt as double
Set mytxt = ThisDrawing.TextStyles.Add("mytxt")
mytxt.fontFile = "c:\windows\fonts\simfang.ttf"
mytxt.Height = 100
mytxt.Width = 0.8
mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(3, 0)
ThisDrawing.ActiveTextStyle = mytxt
frmmain.hide
pt = ThisDrawing.Utility.GetPoint(, "select an point")
Set txtobj = ThisDrawing.ModelSpace.AddMText(pt, 1400, "{do this}\P" & "like like")
this code can't passed! who can modify this?thanks!!!!!