Как получить длину строки пикселях (поинтах)

Dim sizeText As Size = TextRenderer.MeasureText(Me.Text, Me.Font)

Dim g As Graphics = Me.CreateGraphics ' - форма (Me.Button1.CreateGraphics) - кнопка
Dim sizeText As Size = TextRenderer.MeasureText(g, Me.Text, Me.Font)

g.MeasureString(Me.Text, Me.Font)

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Top = 30
        Label1.Left = 10
        Label1.BackColor = Color.Black
        Label1.AutoSize = False
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        e.Graphics.DrawString("П Р О В Е Р К А", Me.Font, Brushes.Black, New Point(10, 10))
 
        Dim sizeText As Size = TextRenderer.MeasureText(e.Graphics, "П Р О В Е Р К А", Me.Font)
 
        Label1.Size = sizeText
    End Sub
End Class

        Dim sizeText As Size = TextRenderer.MeasureText(e.Graphics, "П Р О В Е Р К А", Me.Font)
        sizeText -= New Size(1, 1)

Dim g As Graphics = RichTextBox1.CreateGraphics
        Dim s As String = "строка для измерения"
        Dim sizeText As SizeF = g.MeasureString(s, RichTextBox1.SelectionFont, RichTextBox1.Size, StringFormat.GenericTypographic, s.Length, 1)