Подогнать текст под размер Label, сократив его точками

        Me.Label1.AutoSize = False

        Me.Label1.Size = New Size(100, 20)

        Dim s As String = "c:\uririreiu\ewriouwe\werr.ttt"

        TextRenderer.MeasureText(s, _

                                 Me.Label1.Font, _

                                 Me.Label1.Size, _

                                 TextFormatFlags.PathEllipsis Or TextFormatFlags.ModifyString)

        Me.Label1.Text = s