yuk beljar programan visual basic dot net di mesran

Public class from1

rivate Sub bproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bproses.Click
isitabel()
isitabel()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        mrek.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
  End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Sub isitabel()
    Sub isitabel()
        Dim lsv As New ListViewItem
        lsv.Text =no.pembeli.Text
        lsv.SubItems.Add(kode.Text)
        lsv.SubItems.Add(nama.Text)
        lsv.SubItems.Add(merek.Text)
        lsv.SubItems.Add(harga.Text)
        lsv.SubItems.Add(jumlah.Text)
        lsv.SubItems.Add(total.Text)
        daftar.Items.Add(lsv)
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG002")
        kode.items.Add("VG002")
     
       End Sub
          Sub buattabel()
        daftar.Columns.Add("no", 60, HorizontalAlignment.Center)
        daftar.Columns.Add("kode", 150, HorizontalAlignment.Center)
        daftar.Columns.Add("nama", 100, HorizontalAlignment.Left)
        daftar.Columns.Add("merek", 130, HorizontalAlignment.Center)
        daftar.Columns.Add("harga", 50, HorizontalAlignment.Center)
        daftar.Columns.Add("jumlah", 100, HorizontalAlignment.Center)
        daftar.Columns.Add("total", 80, HorizontalAlignment.Center)
        daftar.View = View.Details
        daftar.GridLines = True
        daftar.FullRowSelect = True
    End Sub

 Private sub kode_slectedindex changed (Byval sender as system object, byval e as system.objek, byval e as system. eventargs)handles kode.selectedex changed
dim x as string
  x =microsoft.visual basic .left (kode.text,2)
 select case x
case "TS" : merek.text="TOSHIBA"
case "VG" : merek.text="V-GEN"

dim x2 as string
  x2 = microsoft.visual basic.right (kode.text,3)
if x ="TS" and ="001" then
   harga.text="105000"
else if x ="TS and x2 ="002"  then
   harga.text="90000"
else if x = "VG" and x2="002" then
  harga.text="60000"
End if

x= microsoft.visual basic.right (kode.text,3)
 select case x
 case "001" : nama.text="flaskdisk 4GB"
 case "002":nama.text="flaskdisk 2 GB"
 
End  select
End sub

private sub btn bersih_click (Byval sender as system.objek,byval e as system.eventargs)hendres btn bersih.click
       no.text=""
       kode.text=""
       nama.text=""
        merek.text=""
       harga.text=""
       jumlah.text=""
       total.text=""

private sub btn hapus semuadata_click byval sender as system . object byval e as system eventargs) hendlens btnhapus semuadata.click
lv.items-claer()
end sub

private sub btnhapus data pilih-click (Byval sender as system.objek,byval e as system.eventargrs)heandles btnhapus datapilih.clik
lv.items.remove (lv.selected.items(0))

end sub
end class