Private Sub Command1_Click() Text1.SetFocus Text1.Text = “” Text2.Text = “” Text3.Text = “” Text4.Text = “” Text5.Text = “” Text6.Text = “” End Sub Private Sub Command2_Click() Text1.SetFocus Text1.Text = “” Text2.Text = “” Text3.Text = “” Text4.Text = “” Text5.Text = “” Text6.Text = “” End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() End Sub Private Sub Label1_Click() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text6.SetFocus End If End Sub

Advertisements
Standard

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s