Extension

Private Function TextExtent(txt as String) as Integer
labMeasure.Caption = txt
TextExtent = labMeasure.Width
End Function

'Quando vuoi trovare l'estensione di qualche testo,

'semplicemente chiama questa funzione con la stringa

'come parametro.

'Se nel caso essa esce fuori poiche' il limite fosse

'troppo corto. Devi aggiungere alcuni spazi vuoti

'tra la stringa. Per esempio:

Private Function TextExtent(txt As String) As Integer
labMeasure.Caption = " " & txt
TextExtent = labMeasure.Width
End Function
E veramente semplice a determinare l'estensione di
una stringa in VB. Puoi fare questo con le funzioni
API, ma c'e' una piu' facile via: usare la proprieta'
AutoSize di una Label. Primo, inserisci una label su
un form (labMeasure) e setta la proprieta' Autosize a
True e la proprita' Visibile a False. Quindi scrivi
questa semplice ruotine: