Private Sub BATAL_Click() Textn1 = "" Textn2 = "" Textn3 = "" Textn4 = "" Textn5 = "" Textn6 = "" Textn7 = "" Textn8 = "" Texttotal1 = "" Texttotal2 = "" Texttotal3 = "" Texttotal4 = "" Textn1.SetFocus End Sub Private Sub HITUNG_Click() Texttotal1 = Val(Textn1) + Val(Textn2) Texttotal2 = Val(Textn3) / Val(Textn4) Texttotal3 = Val(Textn5) - Val(Textn6) Texttotal4 = Val(Textn7) * Val(Textn8) End Sub Private Sub KELUAR_Click() Unload Me End Sub Private Sub LAGI_Click() Textn1 = "" Textn2 = "" Textn3 = "" Textn4 = "" Textn5 = "" Textn6 = "" Textn7 = "" Textn8 = "" Texttotal1 = "" Texttotal2 = "" Texttotal3 = "" Texttotal4 = "" Textn1.SetFocus End Sub Private Sub Textn1_KeyPress(KeyAscii As Integer) If ...