Get the REAL width of text

[Robin]

Perfect for those who can't seem to centralise names [cleared]

I also found it useful when I made Nr completely in DX.

Code:

Public Function getSize(ByVal DC As Long, ByVal Text As String) As textSize
    Dim lngReturn As Long
    Dim typSize As textSize
  
    lngReturn = GetTextExtentPoint32(DC, Text, Len(Text), typSize)
  
    getSize = typSize
End Function

Code:

Public Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As textSize) As Long

Code:

Public Type textSize
    width As Long
    Height As Long
End Type