program vb net untuk menampilkan output

Public Class Form1

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

        NIK.Items.Add("PM010")

        NIK.Items.Add("PS111")

        NIK.Items.Add("KU101")

        NIK.Items.Add("GD100")

        NIK.Items.Add("PM011")

        Jbtan.Items.Add("PM")

        Jbtan.Items.Add("PS")

        Jbtan.Items.Add("KU")

        stats.Items.Add("Menikah")

        stats.Items.Add("Tidak Menikah")

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text

            Case "PM010"

                nma.Text = "Remington"

               

            Case "PS111"

                nma.Text = "Ferry"

               

            Case "KU101"

                nma.Text = "Irwandy"

               

            Case "GD100"

                nma.Text = "Chen Lee"

                

            Case "PM011"

                nma.Text = "Yee Yin"

               

        End Select

    End Sub

    Private Sub Jbtan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Jbtan.SelectedIndexChanged

        Select Case Jbtan.Text

            Case "PM"

                Jbtan.Text = "Kepala Divisi"

                gjipkok.Text = "Rp 10.000.000"

                pjak.Text = "10 %"

            Case "PS"

                Jbtan.Text = "Wakil Kepala"

                gjipkok.Text = "Rp 3.500.000"

                pjak.Text = "10 %"

            Case "KU"

                Jbtan.Text = "Staff"

                gjipkok.Text = "Rp 2.000.000"

                pjak.Text = "10 %"

        End Select

    End Sub

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

        End

    End Sub

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

        NIK.Text = ""

        nma.Text = ""

        bgian.Text = ""

        Jbtan.Text = ""

        gjipkok.Text = ""

        pjak.Text = ""

        stats.Text = ""

        jmlhank.Text = ""

        tkel.Text = ""

        tanak.Text = ""

        tgaji.Text = ""

    End Sub

    Private Sub stats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles stats.SelectedIndexChanged

        Select Case stats.Text

            Case "Menikah"

                tkel.Text = "15 %"

            Case "Tidak Menikah"

                tkel.Text = "0 %"

        End Select

    End Sub

End Class

Hasilnya Sebagai Berikut :