tor.com
'
 ===============================================================================
=======

Private Sub cboColumn_Click()
Dim lCol As Long
Dim eAlign As EHdrTextAlign
Dim i As Long

   If (cboColumn.ListIndex &gt; -1) Then
      lCol = cboColumn.ItemData(cboColumn.ListIndex)
      
      txtHeader.Text = hdrColumns.ColumnHeader(lCol)
      txtTag.Text = hdrColumns.ColumnTag(lCol)
      txtExtraData.Text = hdrColumns.ColumnExtraData(lCol)
      txtWidth.Text = hdrColumns.ColumnWidth(lCol)
      cboOr