Contoh menggunakan check book di visual basic 2008

Checkbook

Public Class Form4

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            SetAttr("D:\dokumen\Master Program", vbHidden) 'menyembunyikan folder

        ElseIf CheckBox1.Checked = False Then

            SetAttr("D:\dokumen\Master Program", vbNormal) 'menampilkan folder

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        End

    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class