efresh_Click()
   cboColumn_Click
End Sub

Private Sub cmdSet_Click()
Dim lCol As Long
   If (cboColumn.ListIndex &gt; -1) Then
      lCol = cboColumn.ItemData(cboColumn.ListIndex)
      With hdrColumns
         .ColumnHeader(lCol) = txtHeader.Text
         .ColumnWidth(lCol) = CLng(txtWidth.Text)
         .ColumnImage(lCol) = cboIcon.ItemData(cboIcon.ListIndex)
         .ColumnTag(lCol) = txtTag.Text
         .ColumnExtraData(lCol) = CLng(txtExtraData.Text)
         .ColumnTextAlign(lCol) = cboAlign.ListIn