Dim c As Cursor
c = cp.Calendars
If c.RowCount > 0 Then
For i = 0 To c.RowCount-1
c.Position = i
Dim colcount As Int = c.ColumnCount
Log("columns="&colcount)
For o = 0 To colcount -1
Log(c.GetColumnName(o)&"="&c.GetString(c.GetColumnName(o)))
Next
Next
End If