FlexGrid1.ColsName=Array As String("ID","Sel","User","Img","Digit","List")
FlexGrid1.ColsType=Array As Int(FlexGrid1.TypeInt,FlexGrid1.TypeCheck,FlexGrid1.TypeString,FlexGrid1.TypeImage,FlexGrid1.TypeFloat,FlexGrid1.TypeList)
Dim ListItem As String = "Jan,Feb,Mar,Apr,May,June,Jul"
For i=1 To 10
FlexGrid1.AddRow(Array As Object(i,b,"User " & i,Null,Rnd(50,1000)/10,LIstItem),True)
Next
FlexGrid1.SetCellListIndex(0,5,3) ' Row=0, Col = 5 , Index = 3