Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
KeyAscii = 0 '加這行
End If
End Sub