Example VB. Net

 Contoh:

 

Public Class Form1

    Private Sub Bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhapus.Click

        NPM.Text = ""

        Nama.Text = ""

        Jurusan.Text = ""

        Jenjang.Text = ""

        Tahun.Text = ""

        NPM.Focus()

    End Sub

    Private Sub Bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkeluar.Click

        End

    End Sub

 

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

        Jenjang.Items.Add("S1")

        Jenjang.Items.Add("D3")

        Jenjang.Items.Add("D1")

        Jurusan.Items.Add("TI")

        Jurusan.Items.Add("SI")

        Jurusan.Items.Add("MI")

        Jurusan.Items.Add("KA")

        Jurusan.Items.Add("TK")

        Call addTahun()

    End Sub

    Sub addTahun()

        Dim i As Integer

        For i = 2005 To 2012

            Tahun.Items.Add(i)

        Next i

    End Sub

End Class