Public Sub Form_Open()
ColumnView1.Columns.count = 4
ColumnView1.Header = False
ColumnView1.add("first", "Pippo", Picture["icon:/16/clock"])
ColumnView1["first"][1] = "Pluto"
ColumnView1["first"][2] = "Paperino"
ColumnView1["first"][3] = "Gastone"
End
Public Sub ColumnView1_Click()
Dim hGrid As GridView
hGrid = ColumnView1.Children[0]
Print hGrid.Column
End