xels, Me.ScaleMode)
End Sub

Private Sub lvwMain_AfterLabelEdit(Cancel As Boolean, NewString As String, Item
 As cListItem)
   Debug.Print "After Label Edit: ", NewString, Item.Text
End Sub

Private Sub lvwMain_BeforeLabelEdit(Cancel As Boolean, Item As cListItem)
   Debug.Print "Before Label Edit: ", Item.Text
End Sub

Private Sub lvwMain_Click()
   lblStatus.Caption = "Click"
End Sub

Private Sub lvwMain_ColumnClick(Column As cColumn)
   ' Sort according to the column type:
   Select Case Column.Key
   Ca