resizing text box

is it possible to have my progrom resize a text box relitive to the size of it's font/font size?

How about:

Code:

---

Text1.Width = Text1.Font.Size * 100 'just use all kinds
'of math operations. Same with Height
Text1.Height = TExt1.Font.Size * 50 - 2

---

Gl,
D!m

If you want something like autoresize you could place this in text1_change event

Code:

---

Text1.Font.Size = 20
temp=Font.Size
font.size=text1.font.size
Text1.Height = TextHeight(Text1.text)
Text1.Width = TextWidth(Text1.text)
font.size=temp

---

Set the autosize property to true.

Code:

---

txtField.Autosize = True

---

Flint