Belajar membuat List View DI VB NET

hai Teman2 kali saya akan memostingkan sebuah list view yang saya buat sendiri,,,

buat form sebagai berikut:

kemudian ketikkan Perintah di bawah ini:

Public Class Form1

    Sub buattable()

        LV.Columns.Add("Npm", 60, HorizontalAlignment.Left)

        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jenjang/Jurusan", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama Dosen", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Kode Matakuliah", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Matakuliah", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Kehadiran", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Tugas", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai UTS", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai UAS", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Huruf", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Keterangan", 70, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = Npm.Text

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(JJ.Text)

        lst.SubItems.Add(KoDo.Text)

        lst.SubItems.Add(NaDO.Text)

        lst.SubItems.Add(KoMa.Text)

        lst.SubItems.Add(Matakuliah.Text)

        lst.SubItems.Add(NilaiK.Text)

        lst.SubItems.Add(NilaiT.Text)

        lst.SubItems.Add(NilaiU.Text)

        lst.SubItems.Add(NilaiUA.Text)

        lst.SubItems.Add(NH.Text)

        lst.SubItems.Add(Ket.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Npm.Items.Add("11120544")

        Npm.Items.Add("12110740")

        Npm.Items.Add("10120546")

        KoDO.Items.Add("k1234567")

        KoDO.Items.Add("R4567890")

        KoDO.Items.Add("S0987654")

        Dim i As Integer

        For i = 40 To 100

            NilaiK.Items.Add(i)

            NilaiT.Items.Add(i)

            NilaiU.Items.Add(i)

            NilaiUA.Items.Add(i)

        Next i

        buattable()

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "11120544"

                Nama.Text = "Ahmad Hafizi"

            Case "12110740"

                Nama.Text = "Edwin Raymon Damanik"

            Case "10120546"

                Nama.Text = "Parningotan Rambe"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Left(Npm.Text, 2)

        If i = "11" Then

            JJ.Text = "SI/Sistem Informasi"

        ElseIf i = "12" Then

            JJ.Text = "D3/sistem informasi"

        ElseIf i = "10" Then

            JJ.Text = "D1/Komputer Akuntansi"

        End If

    End Sub

    Private Sub KoDo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KoDo.SelectedIndexChanged

        Select Case KoDo.Text

            Case ("k1234567")

                NaDO.Text = ("Mesran,SKom,M.Kom")

            Case ("R4567890")

                NaDO.Text = ("Sinar Sinurat,ST,M.Kom")

            Case ("S0987654")

                NaDO.Text = ("Harvei hutabarat,S.Kom,M.Kom")

            Case Else

                Nama.Text = "_"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Right(KoDo.Text, 3)

        If i = "567" Then

            KoMa.Text = "001"

            Matakuliah.Text = "Pemograman Visual"

        ElseIf i = "890" Then

            KoMa.Text = "002"

            Matakuliah.Text = "Sistem informasi"

        ElseIf i = "654" Then

            KoMa.Text = "003"

            Matakuliah.Text = "Struktur Data"

        End If

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Npm.Text = ""

        Nama.Text = ""

        JJ.Text = ""

        KoDo.Text = ""

        NaDo.Text = ""

        KoMa.Text = ""

        Matakuliah.Text = ""

        NilaiK.Text = ""

        NilaiT.Text = ""

        NilaiU.Text = ""

        NilaiUA.Text = ""

        Ket.Text = ""

        NH.Text = ""

        NA.Text = ""

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        NA.Text = 0.01 * NilaiK.Text + 0.15 * NilaiT.Text + 0.3 * NilaiU.Text + 0.45 * NilaiUA.Text

        If NA.Text < 50 Then

            Ket.Text = "GagaL"

            NH.Text = "E"

        ElseIf NA.Text <= 51 Then

            Ket.Text = "Gagal"

            NH.Text = "D"

        ElseIf NA.Text <= 60 Then

            Ket.Text = "Lulus"

            NH.Text = "C"

        ElseIf NA.Text <= 61 Then

            Ket.Text = "Lulus"

            NH.Text = "B"

        ElseIf NA.Text <= 70 Then

            Ket.Text = "Lulus"

            NH.Text = "B+"

        ElseIf NA.Text >= 80 Then

            Ket.Text = "Lulus"

            NH.Text = "A"

        End If

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        isitable()

    End Sub

    Private Sub BtnSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSemuaData.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdata.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class

  semoga bisa bermanfaat yah teman2... :)