cara membuat penggajian karyawan di vb.net

Langsung saja silakan desain programnya seperti gambar dibawah ini :

Maka listing programnya seprti dibawah ini :   Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIK.Items.Add("K1001")
        NIK.Items.Add("K2003")
        NIK.Items.Add("S1001")
        NIK.Items.Add("S2002")
        NIK.Items.Add("S3003")
        NIK.Items.Add("A1001")
        NIK.Items.Add("A2002")
        NIK.Items.Add("A3003")
        GOLONGAN.Items.Add("111A")
        GOLONGAN.Items.Add("111B")
        GOLONGAN.Items.Add("111C")
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(NIK.Text, 1)
        Select Case X
            Case "K" : BAGIAN.Text = "KEUANGAN"
            Case "A" : BAGIAN.Text = "ADMINISTRASI"
            Case "S" : BAGIAN.Text = "SECURITY"
        End Select
        X = Microsoft.VisualBasic.Mid(NIK.Text, 1, 2)
        Select Case X
            Case "K1" : NAMA.Text = "XXX"
            Case "K2" : NAMA.Text = "QQQ"
            Case "S1" : NAMA.Text = "WWW"
            Case "S2" : NAMA.Text = "EEE"
            Case "S3" : NAMA.Text = "RRR"
            Case "A1" : NAMA.Text = "YYY"
            Case "A2" : NAMA.Text = "UUU"
            Case "A3" : NAMA.Text = "III"

        End Select

        X = Microsoft.VisualBasic.Mid(NIK.Text, 2, 1)
        Select Case X
            Case "1" : jabatan.Text = "kepala bagian"
            Case "2" : jabatan.Text = "staff"
            Case "3" : jabatan.Text = "bendahara"
        End Select
    End Sub

    Private Sub GOLONGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOLONGAN.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Right(GOLONGAN.Text, 1)
        Select Case X
            Case "A" : GAJI.Text = "2500000"
            Case "B" : GAJI.Text = "3000000"
            Case "C" : GAJI.Text = "3500000"
        End Select
    End Sub
End Class