move to next line in text box vb6

What does the "enter" key do?  Take you to the next field?
Usually, the enter key should take you to the next line (in a multi-line enabled text box).

Ahh,

I have the default set on a command button within the same screen.  I guess the two cannot coexist...

No way, that would be awful!  I'm going to test that right now myself, I'll let you know if I get the same.

Confirmed:  With "Accept Button" specified in the form properties, the enter key no longer works in the multi-line text box.   Pretty poor IMO.

Here is a possible workaround (untested):
In the text box's "gotfocus" event: you can change the accept button on the form properties to nothing,  then on "lostfocus", change the form's accept button property back to  your button.

(Pretty sure I used the wrong names for those focus events, but hopefully you see what I mean.)

If you want to type in a new line you could just add a command button with this code.

Text1.Text = Text1.Text & vbCrLf

If instead you want to continue the current line then do this

Text1.SelStart = Len(Text1.Text)

Boy.  Seems like an extra annoying step...

Thanks guys

In defense of VB6, it really doesn't know that you want to add a new line rather than adding something at the start or the middle.

You say 'sentence', so how does this suit?

Option Explicit

Private Sub Text1_Change()
    Select Case Right(Text1.Text, 1)
        Case ".", "!", "?"
            Text1.Text = Text1.Text & vbCrLf
            Text1.SelStart = Len(Text1.Text)
    End Select
End Sub

Select allOpen in new window

Graham

That's a great solution but a little too specific to punctuation

How about this?

Private Sub Text1_LostFocus()
If Right(Text1.Text, 2) = vbCrLf Then
    Exit Sub
Else
    Text1.Text = Text1.Text & vbCrLf
End If
End Sub

Select allOpen in new window

Assuming TextBox name is Text1 and default button is Command1:

Private Sub Command1_Click()
    Static ignoreClick As Boolean
    If ignoreClick = False Then
        If Me.ActiveControl Is Text1 Then
           SendKeys vbCrLf
           ignoreClick = True
           Exit Sub
        End If
    Else
        ignoreClick = False
        Exit Sub
    End If
    
    ' your code for default button clicked/enter pressed

End Sub

Select allOpen in new window

Thats exactly what I am looking for.