you can do this
Code:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
' code here
End Select
End Sub
or this
Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyReturn
' code here
End Select
End Sub
[Edited by denniswrenn on 06-29-2000 at 12:18 PM]