 ",Order=" &amp; lOrder
   cboColumn_Click
End Sub


Private Sub hdrColumns_ColumnFilterChange(lColumn As Long, sFilter As String)
   Status "ColumnFilterChange:" &amp; lColumn &amp; ", filter= " &amp; sFilter
   cboColumn_Click
End Sub

Private Sub hdrColumns_ColumnFilterClick(lColumn As Long)
   Status "ColumnFilterClick" &amp; lColumn
   cboColumn_Click
End Sub

Private Sub hdrColumns_ColumnManualDragRequest(lColumn As Long,
 bForceManualDragDrop As Boolean)
   If (lColumn = 2) Then
      Status "Prevent