Add mtext with two lines of text to the leader (above-below)

[mgrigoriev]

Hi,
I would like to add an mtext object with two lines of text to the leader. One line-above the leader line, one-below. Here's the code that I am using right now:

Set mtextObj = ThisDrawing.ModelSpace.AddMText(p, width, textString)
points(0) = p(0): points(1) = p(1): points(2) = p(2)
points(3) = p(0) + 0.0001: points(4) = p(1) + 0.0001: points(5) = p(2)
points(6) = p(0) + 0.0001: points(7) = p(1) + 0.0002: points(8) = p(2)
Set leaderObj = ThisDrawing.ModelSpace.AddLeader(points, mtextObj, LeaderType)
leaderObj.Linetype = "Continuous"
leaderObj.TextGap = 0
leaderObj.Update

Thanks,
Mike