单元格中，文字长度超过单元格宽度时，文字自动折行如何实现？

单元格中，文字长度超过单元格宽度时，文字自动折行如何实现？我用的VB6.0  spread7
请高手指教，谢谢

用下面的方法也没实现：
.TypeEditMultiLine = True
或
Spread for Windows Forms 5 中你可以使用TextCellType或者RichTextBoxCellType来设置自动换行，例如：            RichTextCellType rtCell = new RichTextCellType();

            rtCell.WordWrap = true;



            this.fpSpread1.ActiveSheet.Cells[0, 0].CellType = rtCell;

复制代码

Me.FpSpread1_Sheet1.Reset()
        Me.FpSpread1_Sheet1.SheetName = "Sheet1"
        'Formulas and custom names must be loaded with R1C1 reference style
        Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
        TextCellType1.Multiline = True
        TextCellType1.WordWrap = True
        Me.FpSpread1_Sheet1.Cells.Get(0, 0).CellType = TextCellType1
        Me.FpSpread1_Sheet1.RowHeader.Columns.Default.Resizable = False
        Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
这是我写的，折行挺好的啊！

Me.FpSpread1_Sheet1.Reset()
        Me.FpSpread1_Sheet1.SheetName = "Sheet1"
        'Formulas and custom names must be loaded with R1C1 reference style
        Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
        TextCellType1.Multiline = True
        TextCellType1.WordWrap = True
        Me.FpSpread1_Sheet1.Cells.Get(0, 0).CellType = TextCellType1
        Me.FpSpread1_Sheet1.RowHeader.Columns.Default.Resizable = False
        Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
这是我写的，折行挺好的啊！

Me.FpSpread1_Sheet1.Reset()
        Me.FpSpread1_Sheet1.SheetName = "Sheet1"
        'Formulas and custom names must be loaded with R1C1 reference style
        Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
        TextCellType1.Multiline = True
        TextCellType1.WordWrap = True
        Me.FpSpread1_Sheet1.Cells.Get(0, 0).CellType = TextCellType1
        Me.FpSpread1_Sheet1.RowHeader.Columns.Default.Resizable = False
        Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
这是我写的，折行挺好的啊！

jpg