[VB6] RichTextBox con al massimo 2 righe

[kalosjo]

Potresti vedere se il campo di testo contiene già un carattere di crlf:

Private Sub Text1_KeyPress(KeyAscii As Integer)

  If InStr(1, Text1.Text, vbCrLf) > 0 And KeyAscii = 13 Then
    KeyAscii = 0
  End If

End Sub