vb.net ListView

Public Class Form1

    Private Sub npm_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            proses1()

        End If

    End Sub

    Private Sub na_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nilai_angka.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            proses()

        End If

    End Sub

    Sub proses1()

        Dim x As String

        x = Microsoft.VisualBasic.Left(npm.Text, 2)

        If x = "10" Then

            tahun.Text = "2010"

        ElseIf x = "00" Then

            tahun.Text = "2009"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "1" Then

            jenjang.Text = "Diploma I"

        ElseIf x = "2" Then

            jenjang.Text = "Diploma III"

        ElseIf x = "3" Then

            jenjang.Text = "Strata I"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If x = "01" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "02" Then

            jurusan.Text = "Sistem Informasi"

        ElseIf x = "03" Then

            jurusan.Text = "Akuntansi"

        End If

    End Sub

    Sub proses()

        If nilai_angka.Text >= 80 Then

            nh.Text = "A"

        ElseIf nilai_angka.Text >= 60 Then

            nh.Text = "B"

        ElseIf nilai_angka.Text >= 50 Then

            nh.Text = "C"

        ElseIf nilai_angka.Text >= 40 Then

            nh.Text = "D"

        Else

            nh.Text = "E"

        End If

    End Sub

    Sub buat_Tabel()

        With LV

            .Columns.Add("NPM", 60, HorizontalAlignment.Left)

            .Columns.Add("Nama", 100, HorizontalAlignment.Left)

            .Columns.Add("Jurusan", 130, HorizontalAlignment.Left)

            .Columns.Add("Jenjang", 75, HorizontalAlignment.Center)

            .Columns.Add("Tahun Masuk", 85, HorizontalAlignment.Center)

            .Columns.Add("Nilai Angka", 80, HorizontalAlignment.Center)

            .Columns.Add("Niai Huruf", 80, HorizontalAlignment.Center)

            .View = View.Details

            .GridLines = True

            .FullRowSelect = True

        End With

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = npm.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jurusan.Text)

        lst.SubItems.Add(jenjang.Text)

        lst.SubItems.Add(tahun.Text)

        lst.SubItems.Add(nilai_angka.Text)

        lst.SubItems.Add(nh.Text)

        LV.Items.Add(lst)

    End Sub

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

        buat_Tabel()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitabel()

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        npm.Text = ""

        nama.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        tahun.Text = ""

        nilai_angka.Text = ""

        nh.Text = ""

        npm.Focus()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        LV.Items.Clear()

    End Sub

    Private Sub btndata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndata.Click

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

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

Hasil from Programnya :