Thanks, both of you.

Michelle

>
>Michelle,
>Try:
>Txtbox1.Width = Txtbox1.Maxlength*fontmetric(7,Txtbox1.Fontname,Txtbox1.FontSize)
>
>You will also have to take into account the attributes like Bold, Italic, etc. You can build a string based on those properties and pass that as the fourth parameter to Fontmetric.