Get The Width Of A String
Preparations
Add 1 Label to
your form (named Label1).
Set the Label AutoSize propery to True, and Visible
propery to False
Form Code
Private
Function TextExtent(txt As String)
As Integer
Label1.Caption =
txt
TextExtent = Label1.Width
End Function
Private Sub
Form_Load()
'change the
"VBTown" below with the string you want to measure
MsgBox
("The width of the string 'VBTown' is: " & TextExtent("VBTown"))
End Sub