Tugas 3 V.B

Private subCmdPROSES_Click ()
Text4=val (text1)+val (text2)-val (text3)
Text5=val (text4)*0.1
Text6=val (text4)-(text5)

End sub

Private Sub CmdULANG_Click ()
Text1=""
Text2=""
Text3=""
Text4=""
Text5=""
Text6=""

End sub


Private Sub Text3_keyPress(keyAscii As Integer)
If KeyAscii=13then
Text4=val (text1)+val (text2)_val (text3)
Text5=val (text4)*0.1
Text6=val (text4)-val (text5)
End If

End sub