Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
     Text2.setFocus
End If
End Sub



Kirim email ke