ing Dragging on Column:" &amp; lColumn
      bForceManualDragDrop = True
   End If
End Sub

Private Sub hdrColumns_ColumnWidthChanged(lColumn As Long, ByVal lWidth As Long)
   Status "ColumnWidthChanged:" &amp; lColumn &amp; ",Width=" &amp; lWidth
   cboColumn_Click
End Sub


Private Sub hdrColumns_ColumnWidthChanging(lColumn As Long, ByVal lWidth As
 Long, bCancel As Boolean)
   Status "ColumnWidthChanging:" &amp; lColumn &amp; ",Width=" &amp; lWidth
End Sub

Private Sub hdrColumns_DividerDblClick(lColumn 