For Each xcol In This.my_grid.Columns Bindevent(xcol.header1,"dblclick",This, "ch_order") Next proc ch_order wait wind this.name