Kebiasaan Pacaran yang Dulu serius Banget Sekarang Jadi Biasa Aja Hubungan antara dua orang itu nggak terjadi gitu-gitu aja.Bangun tidur, tau-tau kamupunya pacar. Nggak, bro. Hidupnggak seenak itu. Segalasesuatu itu harus ada prosesdan langkah-langkahnya. Begitujuga pacaran. Ada step-stepnya.Kenalan, pdkt, nembak, jadian,lamaran, nikah dst. Kalo kebiasaan-kebiasaan orangpacaran gimana? Jaman dulusama jaman sekarang beda standar. Apa aja kira-kira? Monggo dibaca!
1. Ngajak ke RumahJaman sekarang,
 ngajak pacar kerumah itu bukan suatu hal yangluar biasa. Tetep deg-degan sih.Gimana ntar kalo ketemu ibusama bapaknya. Harus bersikapgimana? Cium tangan apa ciumjidat? Panik sendiri. Itu wajar.Tapi nggak lantas bikinparno,“Waduh, abis ini pasti guadiajak kawin, nih! Gawat!”.Nggak gitu juga kali. Biasa aja.Tapi, lain cerita kalo kita tinggaldi jaman dulu. Jaman alattransportasi masih andong. Kaloudah diajak ke rumah, itutandanya pacar kamu seriusbanget. Saking seriusnya, bisaaja dia ngelamar kamu besokanharinya, kalo emangkeluarganya setuju. Nah, lho!

Public Class Form1
    Private SubForm1_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
        buatTabel()
        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")
       jabatan.Items.Add("Mandor")

       jabatan.Items.Add("Kepala Bagian")
       jabatan.Items.Add("Staf")
       status.Items.Add("Menikah")
       status.Items.Add("Tidak Menikah")
    End Sub

    Private Subjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Mandor" : gaji.Text = 1750000
            Case "Kepala Bagian" : gaji.Text = 2500000
            Case "Staf" : gaji.Text = 1250000
        End Select
        pajak.Text = 0.15 * gaji.Text
    End Sub