Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Label1.Width = 40
        Dim s As String = "test123"
        Dim l As Single
        Dim f As Font = Me.Label1.Font
        Dim fz As Single = f.Size
        Do
            f = New Font(f.Name, fz)
            fz -= 1
            l = Me.Label1.CreateGraphics.MeasureString(s, f).Width
        Loop While Not (l <= Me.Label1.Width)
        Me.Label1.Font = f
        Me.Label1.Text = s
    End Sub