Изменить шрифт Dimension

Подскажите пожалуйста как применить шрифт к размеру.Вкратце, VB.Net, Automation.
У текста получается сменить :
У размера не получается...
Заранее спасибо.
У текста получается сменить :
- Код: Выделить всё
DrawingView1.Texts.Item(i).SetFontName(0, 0, "GOSTtype A")
У размера не получается...
- Код: Выделить всё
DrawingView1.Dimensions.Item(i). ?
Заранее спасибо.