Ввод перевода строки в текстовом поле

Если необходимо чтобы при нажатии на клавишу 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 как перевод строки