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

Private Sub Command1_Click() Text3 = Val(Text1.Text) * Val(Text2.Text) Text6 = Val(Text4.Text) + Val(Text5.Text) Text9 = Val(Text7.Text) – Val(Text8.Text) Text12 = Val(Text10.Text) / Val(Text11.Text) End Sub Private Sub Command2_Click() Text1 = “” Text2 = “” Text3 = “” Text4 = “” Text5 = “” Text6 = “” Text7 = “” Text8 = “” Text9 = “” Text10 = “” Text11 = “” Text12 = “” End Sub Private Sub Command3_Click() Text1 = “” Text2 = “” Text3 = “” Text4 = “” Text5 = “” Text6 = “” Text7 = “” Text8 = “” Text9 = “” Text10 = “” Text11 = “” Text12 = “” End Sub Private Sub Command4_Click() End 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 Text10_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text11.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text3_Change() 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 Text7.SetFocus End If End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text8.SetFocus End If End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text10.SetFocus End If End Sub

Gallery

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