Tugas 4 Vb

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

End sub


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

End sub