[VB6] Adattamento del testo a casella di testo

[LMondi]

Ciao giulio-g,
non ho ben capito se vuoi adattare la sola larghezza (Width) del controllo Txt o anche l'altezza.
In ogni caso dovresti utilizzare le proprietà di una Label con AutoSize impostata su True, che si adatta al testo inserito, dopo passi le proprietà alla Txt. Ti posto un esempio:

Private Sub Command1_Click()
    Label1.AutoSize = True
    Label1.Caption = Text1.Text
        
    'Text1.Height = (Label1.Height)
    Text1.Width = (Label1.Width + 50)
    Text1.SelStart = 0
    Text1.Refresh
End Sub