[vb6]Textarea: A capo in automatico

[junx]

allora non ho capito....
tu vuoi che in fase di digitazione, ciò che scrivi vada a capo ogni tot caratteri?

prova così:

Dim j As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
j = j + 1
If j = 20 Then
    Text1 = Text1 & vbCrLf
    Text1.SelStart = Len(Text1)
    j = 0
End If
End Sub

...anche se poi in realtà un po' te lo dovrai modificare....