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




Reply With Quote