Dimension aa[6]  
    
  aa[1]=1233  
  aa[2]="sdsdsdsd"  
  aa[3]=Date()  
  aa[4]=.F.  
  aa[5]=Datetime()  
  aa[6]=$100  
    
  Create Cursor test (i i null)  
  For i=1 to Alen(aa,1)  
      Insert into test values (.null.)  
  Next  
  Go top  
    
  With CreateObject("MyForm")  
      .Show(1)  
  EndWith  
    
    
  Define Class MyForm as Form  
    
      Add Object Grid as grid   
        
        
      Procedure Init  
      With this  
          .Grid.RecordSource="test"  
          .Grid.ColumnCount=1  
          .Grid.Columns[1].ControlSource="(aa[Recno()])"  
 *       .Grid.Columns[1].Alignment=3  
          .Resize          
      EndWith  
    
      Procedure Resize  
      With this  
          .Grid.Width=.Width  
          .Grid.Height=.Height  
      EndWith  
    
  EndDefine