amp; _
      IIf(i &gt; -1, " Column:" &amp; i, "Not on a column")
End Sub

Private Sub Status(sStat As String)
    lstStat.AddItem sStat
    lstStat.ListIndex = lstStat.ListCount - 1
End Sub

Private Sub hdrColumns_StartColumnWidthChange(lColumn As Long, ByVal lWidth As
 Long, bCancel As Boolean)
   If (lColumn = 2) Then
       Status "Preventing ColWidth Change on Column 2"
       bCancel = True
   Else
       Status "StartColumnWidthChange:" &amp; lColumn &amp; ",Width=" &amp; lWidth
   End If
End Sub

P