program input harga photocopy visual basic 2008

public class from 2

private sub btnproses _clik (byval sender as system, object,Byval sender As system.eventasgns)hendls btnproses.click

If jumlembar.text>=200  then
  HPL..text=100
Else
     total harga.text=HPL.text*jlh
     lembar.text
    if totalharga.text >500000 then
    diskon.text=0.15*totalharga.text
   pembayaran.text=totalharga-diskon.text
endsub

private sub btnhapus-click(Byval sender as system.objek,byval e As system.eventargs)handles btnhapus.click

    jlhlembar.text="'
    HPL.text=""
   totalharga.tex=""
   diskon.text=""
    pembayaran.text =""
End sub

private sub btn keluar_click (Byval sender As system.eventatrgs) handles btn keluar.click
End
End Sub
End class