Tugas Mencari Harga Diskon Hotel dengan VB.Net

Public Class Form1

Private Sub Button1_KeyPress(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TxtLamaMenginap.Text = ""
TxtHargaKamar.Text = ""
TxtLamaMenginap.Focus()
TxtHargaKamar.Focus()
TxtDiskon.Text = ""
TxtDiskon.Focus()
TxtJumlahBayar.Text = ""
TxtJumlahBayar.Focus()
TxtJumlah.Text = ""
TxtJumlah.Focus()

End Sub

Private Sub TxtJumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumlah.KeyPress
TxtJumlah.Text = TxtLamaMenginap.Text * TxtHargaKamar.Text
End Sub

Private Sub TxtDiskon_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtDiskon.KeyPress
TxtDiskon.Text = TxtJumlah.Text * 10 / 100
End Sub

Private Sub TxtJumlahBayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumlahBayar.KeyPress
TxtJumlahBayar.Text = TxtJumlah.Text - TxtDiskon.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class