Listview Perhitungan Penjualan Barang

Public Class Form1
    Sub buattabel()
        LV.Columns.Add("No Pembeli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NoPembeli.Text
        lst.SubItems.Add(KodeBarang.Text)
        lst.SubItems.Add(NamaBarang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(JumlahBeli.Text)
        lst.SubItems.Add(TotalHarga.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        KodeBarang.Items.Add("TS001")
        KodeBarang.Items.Add("TS002")
        KodeBarang.Items.Add("VG001")
        KodeBarang.Items.Add("VG002")
    End Sub

    Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
        Dim m As String
        m = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
        Select Case m
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-Gen"
        End Select

        Dim m2 As String
        m2 = Microsoft.VisualBasic.Right(KodeBarang.Text, 3)

        If m = "TS" And m2 = "001" Then
            Harga.Text = "105000"
        ElseIf m = "TS" And m2 = "002" Then
            Harga.Text = "75000"
        ElseIf m = "VG" And m2 = "001" Then
            Harga.Text = "90000"
        ElseIf m = "VG" And m2 = "002" Then
            Harga.Text = "60000"
        End If

        m = Microsoft.VisualBasic.Right(KodeBarang.Text, 3)
        Select Case m
            Case "001" : NamaBarang.Text = "Flashdisk 4 GB"
            Case "002" : NamaBarang.Text = "Flashdisk 2 GB"
        End Select
    End Sub

    Private Sub JumlahBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TotalHarga.Text = Harga.Text * JumlahBeli.Text
            TotalHarga.Enabled = False
            TotalHarga.BackColor = Color.Gold
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Isitabel()
        NoPembeli.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        NoPembeli.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        LV.Items.Clear()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
    End Sub
End Class