quis qu

 Public Class Form1
    Sub BuatTabel()
        LV.Columns.Add("IDPEL", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        LV.Columns.Add("TARIF_DAYA", 80, HorizontalAlignment.Center)
        LV.Columns.Add("RP_TAGIHAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL_BYR", 80, HorizontalAlignment.Right)
        LV.Columns.Add("BL_TH", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True


    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = IDPEL.Text
        lst.Text = TARIF_DAYA.Text
        lst.Text = RP_TGIHAN.Text
        lst.Text = TOTAL_BYR.Text
        lst.Text = BL_TH.Text
        lst.SubItems.Add(NAMA.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()
    End Sub

    Private Sub BTN_PROSESE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_PROSESE.Click
        IsiTabel()
        IDPEL.Text = " "
        TARIF_DAYA.Text = " "
        RP_TGIHAN.Text = " "
        NAMA.Text = " "
        TOTAL_BYR.Text = " "
        BL_TH.Text = " "
    End Sub

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

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