Form Gaji Pegawai

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Gol.Items.Add("IIIA")
        Gol.Items.Add("IIIB")
        Gol.Items.Add("IIIC")
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        GBersih.Text = Gaji.Text - Pinjaman.Text - Pajak.Text
    End Sub

    Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
        Select Case Gol.Text
            Case "IIIA" : Gaji.Text = 1500000
            Case "IIIB" : Gaji.Text = 2500000
            Case "IIIC" : Gaji.Text = 3500000
        End Select

        Pajak.Text = 0.15 * Gaji.Text
    End Sub
End Class