Jawaban No 2 (DANIEL)

KASUS : KLIK DISINI 

Public Class Form1

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

        Call buatTable()

    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged

        Call addjurusan()

        Call addjenjang()

        Call addtahun()

    End Sub

    Private Sub nAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nAngka.TextChanged

        Call addnhuruf()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        Call isiTable()

        Call bersih()

    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

        Call bersih()

    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        On Error Resume Next

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

    End Sub