Create Cursor test (mf c(200) null)  
  For i=1 to 10  
      Insert into test values ('Value' + REPLICATE(TRANSFORM(i), 50))  
  Next  
  Go top  
    
  o = CreateObject("MyForm")  
  With o
      .Show(1)  
  EndWith  
    
    
  Define Class MyForm as Form  
    
      Add Object Grid as grid   
        
        
      Procedure Init  
      With this  
          WITH .Grid
              .RecordSourceType = 1
              .RecordSource="test"  
              .ColumnCount=2
              .RowHeight = 50
              .Columns[1].Width = 100
              .Columns[1].RemoveObject('Text1')

              .Columns[1].AddObject('GridLabel', 'GridLabel') 
              .Columns[1].GridLabel.Visible = .t.
              .Columns[1].Sparse = .f.
              .Columns[1].CurrentControl = 'GridLabel'
              .Columns[1].ControlSource="test.mf" 

              .Columns[2].ControlSource="test.mf" 
          ENDWITH
          .ShowTips = .t.      
          .Resize          
      EndWith  
    
      Procedure Resize  
      With this  
          .Grid.Width=.Width  
          .Grid.Height=.Height  
      EndWith  
    
  ENDDEFINE
  
DEFINE CLASS GridLabel AS container


    Width = 50
    Height = 25
    BackStyle = 0
    BorderWidth = 0
    Name = "GridLabel"


    ADD OBJECT Label1 AS Label WITH ;
        Height = 25, ;
        Width = 50, ;
        Caption = "Label1", ;
        Name = "Label1"
        WordWrap = .t.
        AutoSize = .f.
        


    PROCEDURE backstyle_access
        If !Empty(this.Parent.ControlSource)
            this.Label1.Caption = Trim(Transform(Evaluate(this.Parent.ControlSource)))
        Else
            this.Label1.Caption = ""
        EndIf
        this.Label1.Width = this.Parent.Width
        this.Label1.height = this.Parent.parent.RowHeight
        RETURN THIS.BackStyle
    ENDPROC


    PROCEDURE Label1.MouseDown
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        =this.Parent.backstyle
    ENDPROC


ENDDEFINE
**************************************************

...
Name = "Label1" , ;
WordWrap = .t. ,  ;
AutoSize = .f.  

Insert into test values (REPLICATE(TRANSFORM(i),10)+' '+REPLICATE(TRANSFORM(i),10)+' '+REPLICATE(TRANSFORM(i),10))