FontWidth()? Don't make me laugh!

; Find width of font (i.e. the widest character in the font).
font_width = 0
For n = 32 To 255
  w = StringWidth(Chr$(n))
  If w > font_width Then font_width = w
Next