Неправильный вывод урезанной строки DrawString - Visual Basic .NET

Формулировка задачи:

Привет. Нужно урезать и вывести путь к папке.

                    Листинг программы
                
 
                            
                        
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim s As String = "C:\Users\ALX\Documents\Visual Studio 2010\Projects\TestMeasure\Test"
        Dim f As New Font(Me.Font.FontFamily, 11, System.Drawing.GraphicsUnit.Pixel)
        Dim r As New Rectangle(10, 10, 212, 11)
 
        TextRenderer.MeasureText(s, f, r.Size, TextFormatFlags.PathEllipsis Or TextFormatFlags.ModifyString)
 
        e.Graphics.DrawString(s, f, New SolidBrush(Color.Black), r)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String = "C:\Users\ALX\Documents\Visual Studio 2010\Projects\TestMeasure\Test"
        Dim f As New Font(Me.Font.FontFamily, 11, System.Drawing.GraphicsUnit.Pixel)
        Dim r As New Rectangle(10, 10, 212, 11)
 
        TextRenderer.MeasureText(s, f, r.Size, TextFormatFlags.PathEllipsis Or TextFormatFlags.ModifyString)
 
        MsgBox(s)
    End Sub

Надо, чтобы было как на MsgBox. Размер прямоугольника r будет изменяться.

Решение задачи: «Неправильный вывод урезанной строки DrawString»

textual
                            Листинг программы 
                        
       TextRenderer.DrawText(e.Graphics, s, f, r, Color.Black, Me.BackColor, TextFormatFlags.PathEllipsis)