Dim cl As String=e.node.NameIf e.Node.Checked =True Then CurrentTable.Cols(cl).Visible=TrueElse CurrentTable.Cols(cl).Visible=FalseEnd If