[VB6] Etichetta con formattazione che si ridimensiona in base al testo

[andrew4]

Ciao a tutti,
io inserisco dentro un richtextbox una frase lunga, piu lunga delle sue dimensioni e il richtextbox me la manda a capo, a me servirebbe che invece di mandarlo a capo me lo autodimensionasse in modo da avere il richtextbox grande quando la frase.
come posso fare?

[LMondi]

Potresti utilizzare una Lbl, nel seguente modo:

Private Sub Command1_Click()
    Dim sWdh As Integer
    ' Prende la larghezza della Lbl con AutoSize=True:
    sWdh = Label1.Width
    ' e la trasferisce al Rtb:
    Rtb1.Width = sWdh
    ' Trasferisce il contenuto della Caption a Rtb:
    Rtb1.Text = Label1.Caption
End Sub

[andrew4]

bene, grazie ho risolto