Dim stzDimensioneStringa As New SizeF 
  Dim intLunghezzaCaratteri as Integer
  intLunghezzaCaratteri=Len(Nome)
Do

   strRigaStampa = Nome.Substring(intLunghezzaCaratteri)
   stzDimensioneStringa = e.Graphics.MeasureString(strRigaStampa, TipoCarattere) 'misura la stringa 
   intLunghezzaCaratteri=intLunghezzaCaratteri-1

Loop Until stzDimensioneStringa<=stzLunghezzaColonna