Источник: msdatabase
Если необходимо чтобы при нажатии на клавишу Enter происходил переход
на новую строку внутри текстового поля:
Способ 1
задать свойство контрола "поведение по Enter"
Способ 2
1. Поставить свойство формы перехват нажатия клавиш = ДА
2. создать событие формы клавиша вниз:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Замена на перевод строки только если редактируется в контроле sfinfo
If Me.ActiveControl.name <> "sfinfo" Then Exit Sub
If KeyCode = 13 And Shift = 0 Then
KeyCode = 0
Call SendKeys("^~")
End If
End Sub
Прим: sfinfo - имя контрола в котором нужно воспринимать Enter как перевод строки