Notas

Este proyecto se realizo con la siguiente programación:

Private Sub Command2_Click()

End

End Sub

Private Sub Command6_Click()

suma = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)

Text4.Text = suma

End Sub

Private Sub Command7_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text1.Text = "" Then

MsgBox ("Digite un nùmero")

Text1.SetFocus

Else

Text2.SetFocus

End If

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text2.Text = "" Then

MsgBox ("Digite un nùmero")

Text2.SetFocus

Else

Text3.SetFocus

End If

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text3.Text = "" Then

MsgBox ("Digite un nùmero")

Text3.SetFocus

Else

Command6.SetFocus

End If

End If

End Sub