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

[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