meSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cboAppearance_Click()
   lvwMain.Appearance = cboAppearance.ItemData(cboAppearance.ListIndex)
End Sub

Private Sub cboBorder_Click()
   lvwMain.BorderStyle = cboBorder.ItemData(cboBorder.ListIndex)
End Sub

Private Sub cboView_Click()
   If cboView.ListIndex &gt; -1 Then
      lvwMain.View = cboView.ItemData(cboView.ListIndex)
   End If
End Sub

Private Sub chkAutoArrang