koding VB

Public Class Form
    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim x As String
        Dim Nonped As String
        Dim thn As String
        x = NPM.Text

        x = Microsoft.VisualBasic.Mid(x, 3, 2)
        Nonped = Microsoft.VisualBasic.Right(NPM.Text, 4)
        If x = "05" Then
            Nama.Text = "bainun harahap"
            jurusan.Text = "Teknik informatika"
            tahunmasuk.Text = "S1"
            tahunmasuk.Text = tahun


        ElseIf x = "06" Then
            Nama.Text = "Windy Astuti"
            jurusan.Text = "manajemen informatika"
            tahunmasuk.Text = "D3"
        ElseIf x = "08" Then
            Nama.Text = "NUR EGA"
            jurusan.Text = "Manajemen AKUTANSI"
            tahunmasuk.Text = "D1"
        Else
            Nama.Text = "ika"
            jurusan.Text = "Teknk komputer"
            tahunmasuk.Text = "S2"
        End If
    End Sub


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add(14110205)
        NPM.Items.Add(14110206)
        NPM.Items.Add(14110208)
    End Sub

    Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tahunmasuk.TextChanged

    End Sub
End Class