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

Go Back