one, eSortOrderDescending
      NewSortOrder = eSortOrderAscending
   Case eSortOrderAscending
      NewSortOrder = eSortOrderDescending
   End Select
End Function

Private Sub lvwMain_DblClick()
   lblStatus.Caption = "Double Click"
End Sub

Private Sub lvwMain_ItemClick(Item As cListItem)
   lblStatus.Caption = "Clicked Item " &amp; Item.Text
End Sub

Private Sub lvwMain_ItemDblClick(Item As cListItem)
   lblStatus.Caption = "Double-Clicked Item " &amp; Item.Text
End Sub

Private Sub lvwMain_KeyDown(KeyCo