Tugas3

Private sub text1_keypress (keyascii as integer)
If keyascii=13 then
Text2.setfocus
End if
End sub

Private sub label5_(click)
Text1.setfocus
Text1=" "
Text2=" "
Text3=" "
End sub

Private sub label6_(click)
End
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= val (text1)*(text2)
End if
End sub