Boxes = (chkCheckBoxes.Value = Checked)
End Sub

Private Sub chkCustomDraw_Click()
   lvwMain.CustomDraw = (chkCustomDraw.Value = Checked)
End Sub

Private Sub chkEnabled_Click()
   lvwMain.Enabled = (chkEnabled.Value = Checked)
End Sub

Private Sub chkFlatScrollBars_Click()
   lvwMain.FlatScrollBar = (chkFlatScrollBars.Value = Checked)
End Sub

Private Sub chkFullRowSelect_Click()
   lvwMain.FullRowSelect = (chkFullRowSelect.Value = Checked)
End Sub

Private Sub chkGridLines_Click()
   lvwMain.GridLines = 