SetTextCharacterExtra frmXY.hDC, 5
frmXY.Refresh

Private Sub ChangeFontWidth(ByRef oControl As Object)
  Dim sBuff As String
  Dim lhDC  As Long
  Dim lRet  As Long
 
  sBuff = Space(200)
  lhDC = GetDC(oControl.hwnd)
  lRet = SetTextCharacterExtra(lhDC, mSpace) 'mSpace = 3
  lRet = ReleaseDC(oControl.hwnd, lhDC)
  oControl.Refresh
 
  FormatMessage FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, GetLastError, _
    LANG_NEUTRAL, sBuff, 200, ByVal 0&
  Debug.Print sBuff
End Sub