Public Class ClsGAJI
    Private noslip As String
    Private tglslip As Date
    Private gaji As Double
    Public Property nomorslip() As String
        Get
            Return noslip
        End Get
        Set(ByVal value As String)
            noslip = value
        End Set
    End Property
    Public Property tglgaji() As Date
        Get
            Return tglslip
        End Get
        Set(ByVal value As Date)
            tglslip = value
        End Set
    End Property
    Public Property gapok() As Double
        Get
            Return gaji
        End Get
        Set(ByVal value As Double)
            gaji = value

        End Set
    End Property
End Class

Public Class ClsPEGAWAI
    Private nip, nama, jabatan As String
    Private tglahir As Date
    Public Property nomor() As String
        Get
            Return nip
        End Get
        Set(ByVal value As String)
            nip = value
        End Set
    End Property
    Public Property nmpeg() As String
        Get
            Return nama
        End Get
        Set(ByVal value As String)
            nama = value
        End Set
    End Property
    Public Property jabatanpgw() As String
        Get
            Return jabatan
        End Get
        Set(ByVal value As String)
            jabatan = value
        End Set
    End Property
    Public Property tanggal() As String
        Get
            Return tglahir
        End Get
        Set(ByVal value As String)
            tglahir = value
        End Set
    End Property
End Class


Public Class FrmSlipGaji
    Dim objslip As New ClsGAJI
    Dim objPGW As New ClsPegawai
    Dim objGAJI As New ClsGAJI


    Private Sub FrmSlipGaji_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        With CBJabatan
            .Items.Add("Director")
            .Items.Add("Manager")
            .Items.Add("Supervisor")
            .Items.Add("Officer")
            .SelectedIndex = 0


        End With
    End Sub

    Private Sub BBatal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BBatal.Click
        TxtNoSlip.Text = ""
        DTglSlip.Value = Now
        TxtNama.Text = ""
        CBJabatan.Text = ""
        TxtGAPOK.Text = ""

    End Sub

    Private Sub BCetak_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BCetak.Click
        Dim data As String
        With objPGW
            .nmpeg = TxtNama.Text
            .jabatanpgw = CBJabatan.Text
        End With
        With objGaJI
            .nomorslip = TxtNoSlip.Text
            .tglgaji = DTglSlip.Value
            .gapok = TxtGAPOK.Text
        End With
        data = "Nomor Slip : " + objGAJI.nomorslip + Chr(13) + _
             "tanggal Slip : " + Format(objGAJI.tglgaji, "dd/MM/yyyy") + Chr(13) + _
             "Nama Pegawai : " + objPGW.nmpeg + Chr(13) + _
             "Jabatan : " + objPGW.jabatanpgw + Chr(13) + _
             "Gaji Pokok : " + Format(objGAJI.gapok, "###,###")

        MsgBox(data, MsgBoxStyle.OkOnly, "Data Slip Pegawai")

    End Sub
End Class