e_Click()
   lvwMain.AutoArrange = (chkAutoArrange.Value = vbChecked)
End Sub

Private Sub chkBackground_Click()
   If chkBackground.Value = Checked Then
      lvwMain.BackColor = -1
      lvwMain.BackgroundPicture = App.Path &amp; "\back.jpg"
   Else
      lvwMain.BackColor = vbWindowBackground
      lvwMain.BackgroundPicture = ""
   End If
End Sub

Private Sub chkBorderSelect_Click()
   lvwMain.ItemBorderSelect = (chkBorderSelect.Value = Checked)
End Sub

Private Sub chkCheckBoxes_Click()
   lvwMain.Check