tugas form VB

Public Class Form1
    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End

    End Sub
    Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged
        If NPM.Text = "102" Then
            Nama.Text = "Kardi Hartono"
            Jurusan.Text = "TI"
            Jenjang.Text = "S1"
            Tahun.Text = "2011"
        ElseIf NPM.Text = "103" Then
            Nama.Text = "M.Yudha Murthawi"
            Jurusan.Text = "SI"
            Jenjang.Text = "S1"
            Tahun.Text = "2011"

        ElseIf NPM.Text = "104" Then
            Nama.Text = "Suryanita"
            Jurusan.Text = "TI"
            Jenjang.Text = "S1"
            Tahun.Text = "2011"

        ElseIf NPM.Text = "1201" Then
            Nama.Text = "Iwan F. Arga"
            Jurusan.Text = "TI"
            Jenjang.Text = "D3"
            Tahun.Text = "2012"

        ElseIf NPM.Text = "1202" Then
            Nama.Text = "Frenton"
            Jurusan.Text = "TI"
            Jenjang.Text = "D1"
            Tahun.Text = "2012"

        ElseIf NPM.Text = "1301" Then
            Nama.Text = "Kapiting"
            Jurusan.Text = "TI"
            Jenjang.Text = "S1"
            Tahun.Text = "2013"

        Else
            Nama.Text = "Tidak Diketahui"
            Jurusan.Text = "Tidak Diketahui"
            Jenjang.Text = "Tidak Diketahui"
            Tahun.Text = "Tidak Diketahui"

        End If
    End Sub

    Private Sub Tahun_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tahun.TextChanged

    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        Tahun.Text = ""
        Angka.Text = "'"
        Huruf.Text = ""

    End Sub

    Private Sub Angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Angka.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then Huruf.Focus()

    End Sub
    Private Sub Angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Angka.TextChanged
        Select Case Angka.Text
            Case Is >= 80
                Huruf.Text = "A"
            Case 70 To 79
                Huruf.Text = "B"
            Case 60 To 69
                Huruf.Text = "C"
            Case 50 To 59
                Huruf.Text = "D"
            Case Is <= 49
                Huruf.Text = "E"


        End Select
    End Sub

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

    End Sub
    Sub buattable()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Angka", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 90, 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(Jurusan.Text)
        lst.SubItems.Add(Jenjang.Text)
        lst.SubItems.Add(Tahun.Text)
        lst.SubItems.Add(Angka.Text)
        lst.SubItems.Add(Huruf.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        isitable()
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        Tahun.Text = ""
        Angka.Text = "'"
        Huruf.Text = ""

    End Sub
End Class