ex) = iCol - 1
   Next iCol
   If (cboColumn.ListCount &gt; 0) Then
      cboColumn.ListIndex = 0
   End If

End Sub

Private Sub Form_Resize()
   On Error Resume Next
   hdrColumns.Width = Me.ScaleWidth - hdrColumns.Left * 2
   lstStat.Width = hdrColumns.Width
End Sub

Private Sub hdrColumns_ColumnBeginDrag(lColumn As Long)
    Status "ColumnBeginDrag:" &amp; lColumn
End Sub

Private Sub hdrColumns_ColumnClick(lColumn As Long)
   Status "ColumnClick:" &amp; lColumn
   If (lColumn = 0) Then
       If (hdrCo