clsRuang - instansiasi & variable

    Dim ruang As New clsRuang

    'untuk membersihkan form
    Public Sub bersih()
        txtNmRuang.Text = ""
        txtKdRuang.Text = ""
        rtxtKet.Text = ""
    End Sub

    'untuk mengaktifkan/menonaktifkan textbox dan button ketika button tambah data diklik
    Public Sub aktif()
        txtNmRuang.Enabled = True
        rtxtKet.Enabled = True
        btnSimpan.Enabled = True
        btnBatal.Enabled = True
        btnTambah.Enabled = False
        btnUbah.Enabled = False
    End Sub

    'untuk mengaktifkan/menonaktifkan textbox dan button ketika tombol simpan atau batal diklik
    Public Sub bliAktif()
        txtNmRuang.Enabled = False
        rtxtKet.Enabled = False
        btnSimpan.Enabled = False
        btnBatal.Enabled = False
        btnTambah.Enabled = True
        btnUbah.Enabled = True
    End Sub