[VB6] TextBox Multiline e inserimento database

[ladyBlu]

te l'avevo detto di allargare le righe

Per evitare che si possano scrivere più di 3 righe puoi usare questo codice che ho buttato giù al volo; non so se esiste un metodo migliore.

Private Sub Text1_Change()

    Dim strText() As String
    Dim intLen As Integer
    strText = Split(Text1.Text, vbCrLf)
    
    If UBound(strText) >= 3 Then
        Text1.Text = strText(0) & vbCrLf & strText(1) & vbCrLf & strText(2)
    End If

End Sub