<Runtime.InteropServices.DllImport("gdi32")> _
    Public Shared Function SetTextCharacterExtra(ByVal hDC As IntPtr, ByVal _
    nCharExtra As Integer) As Integer
    End Function

            Dim deviceHandle As IntPtr = g.GetHdc
 
            Using deviceContext As IDeviceContext = Graphics.FromHdc( _
              deviceHandle)
                SetTextCharacterExtra(deviceHandle, letterSpacing)
 
                TextRenderer.DrawText(deviceContext, value, font, position, _
                  brush.Color)
                g.ReleaseHdc(deviceHandle)
            End Using

            Dim s As SizeF
            Dim deviceHandle As IntPtr = g.GetHdc
 
            Using deviceContext As IDeviceContext = Graphics.FromHdc( _
              deviceHandle)
                SetTextCharacterExtra(deviceHandle, letterSpacing)
                s = TextRenderer.MeasureText(deviceContext, value, font, New _
                  Size(Integer.MaxValue, Integer.MaxValue))
                g.ReleaseHdc(deviceHandle)
            End Using