VB6 - acquisire str di RichTexBox

[LMondi]

Brainjar, nel ringraziarti posto il codice che restituisce la prima riga inserita in un RichTextBox:

Private Sub Command1_Click()

    Dim st As Integer, pt As Integer
    Dim Stringa As String
    
    st = 1
    pt = 1
    
    Do
        pt = InStr(st, RTtBox1.Text, Chr$(10))
        'La prima riga è stata trovata:
        If pt > 0 Then
           Stringa = Mid$(RTtBox1.Text, st, pt)
            Lbl1.Caption = Stringa
            Exit Do
        End If
    Loop
End Sub