In vb it is roughly 90 pixels per character for width attribute of text boxes (Providing it is the default font and size) so you could do the following to solve your problem
This Harshly does what you ask forCode:Private Sub Text1_Change() Text1.Width = Len(Text1) * 90 End Sub
Hope this helps
Ian




Reply With Quote