string width in pixels

Question

Hi, y'all,
I am trying to determine the length of a string in pixels.
I created a little test program for myself and placed three labels on it, each with the same font in a different size. I set the width of the label to 1024, the screenwidth. I used the same test text for each label, cutting it off at the last character that shows, so there is not hidden text running off the label to be included in the string width count.
What I have found is that the width of the string is being reported as wider than the label, even though, as I just mentioned, there are no characters running off the edge of the label. So, something's awry. Does anyone know how to get an accurate width?
Here follows the whole test code. You can drop three labels on a form and run it to see what I mean.

 

Option Explicit On
Option Strict On

Public Class frmMain

Dim StringSize As New SizeF
Dim StringSizeForLargerFont As New 
SizeF
Dim StringSizeForLargestFont As New SizeF

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load

lblMessage.Text = "1 2 3 4 5 6 7 8 9 0 A 1 2 3 4 5 6 7 8 9 0 B 1 2 3 4 5 6 7 
8 9 0 C " & _
"1 2 3 4 5 6 7 8 9 0 D 1 2 3 4 5 6 7 8 9 0 E 1 2 3 4 5 6 7 
8 9 0 F 1 2 3 4 5 6 7 8 9 0 G " & _
"1 2 3 4 5 6 7 8 9 0 H 1 2 3 4 5 6 7 
8 9"
lblMessage.Width = 1280
lblMessage.Font = New 
System.Drawing.Font("Trebuchet MS", 12)
lblMessage.Font = New 
System.Drawing.Font(lblMessage.Font, FontStyle.Regular)

lblMessageInLargerFont.Text = "1 2 3 4 5 6 7 8 9 0 A 1 2 3 4 5 6 7 8 9 0 B 1 
2 3 4 5 6 7 8 9 0 C " & _
"1 2 3 4 5 6 7 8 9 0 D 1 2 3 4 5 6 7 8 9 0 E 1 
2 3 4 5 6 7 8 9 0 F"
lblMessageInLargerFont.Width = 
1280
lblMessageInLargerFont.Font = New System.Drawing.Font("Trebuchet MS", 
17.25)
lblMessageInLargerFont.Font = New 
System.Drawing.Font(lblMessageInLargerFont.Font, FontStyle.Regular)

lblMessageInLargestFont.Text = "1 2 3 4 5 6 7 8 9 0 A 1 2 3 4 5 6 7 8 9 0 B 1 
2 3 4 5 6 7 8 9 0 C " & _
"1 2 3 4 5 6 7 8 9 0 D 1 2 3 4 5 6 7 8 9 0 E 1 
2"
lblMessageInLargestFont.Width = 1280
lblMessageInLargestFont.Font = New 
System.Drawing.Font("Trebuchet MS", 20.25)
lblMessageInLargestFont.Font = New 
System.Drawing.Font(lblMessageInLargestFont.Font, FontStyle.Regular)

End Sub

Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As 
System.Windows.Forms.PaintEventArgs) Handles Me.Paint

e.Graphics.PageUnit = GraphicsUnit.Pixel

StringSize = e.Graphics.MeasureString(lblMessage.Text, 
lblMessage.Font)
StringSizeForLargerFont = 
e.Graphics.MeasureString(lblMessageInLargerFont.Text, 
lblMessageInLargerFont.Font)
StringSizeForLargestFont = 
e.Graphics.MeasureString(lblMessageInLargestFont.Text, 
lblMessageInLargestFont.Font)

lblInformation.Text = _
"Screen Dimensions: " & GetScreenWidth() & 
" X " & GetScreenHeight() & vbCrLf & _
"lblMessage Width: " & 
lblMessage.Width & vbCrLf & _
"Message String Width: " & 
StringSize.ToString & vbCrLf & _
"Larger Message String Width: " 
& StringSizeForLargerFont.ToString & vbCrLf & _
"Largest Message 
String Width: " & StringSizeForLargestFont.ToString

End Sub

Public Function GetScreenHeight() As Integer

Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height

Return intY

End Function

Public Function GetScreenWidth() As Integer

Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width

Return intX

End Function

End Class

I appreciate input.