FarPoint.Win.Spread.CellType.RichTextCellType rtf = new FarPoint.Win.Spread.CellType.RichTextCellType();
rtf.WordWrap = true;
rtf.Multiline = true;
rtf.AllowArrowKeysMoveActiveCell = FarPoint.Win.Spread.FlagArrowKeys.All;
fpSpread1.ActiveSheet.Cells[1, 1].CellType = rtf;
fpSpread1.ActiveSheet.Cells[1, 1].Value = @"{\rtf1\ansi\ansicpg1252\deff0\deflang1033
{\fonttbl{\f0\fscript\fprq2\fcharset0 Comic Sans MS;}
{\f1\froman\fprq2\fcharset0 Times New Roman;}
{\f2\fswiss\fcharset0 Arial;}}{\colortbl ;\red128
\green0\blue128;\red0\green255\blue255;\red255\green0\
blue0;\red0\green255\blue0;\red0\green0\blue255;}
\viewkind4\uc1\pard\cf1\b\f0\fs24 Testing\cf2\b0\fs28 \cf3
\f1\fs40 1... \cf4\i 2... \cf5\ul\i0 3...\cf0\f2\fs20\par}";
Dim rtb As New FarPoint.Win.Spread.CellType.RichTextCellType
rtb.Multiline = True
rtb.WordWrap = True
rtb.AllowArrowKeysMoveActiveCell = FarPoint.Win.Spread.FlagArrowKeys.All
fpSpread1.ActiveSheet.Cells(1, 1).CellType = rtb
fpSpread1.ActiveSheet.Cells(1, 1).Value = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033" + _
"{\fonttbl{\f0\fscript\fprq2\fcharset0 Comic Sans MS;}" + _
"{\f1\froman\fprq2\fcharset0 Times New Roman;}" + _
"{\f2\fswiss\fcharset0 Arial;}}" + _
"{\colortbl ;\red128\green0\blue128;\red0\green255\blue255;" + _
"\red255\green0\blue0;" + _
"\red0\green255\blue0;\red0\green0\blue255;}" + _
"\viewkind4\uc1\pard\cf1\b\f0\fs24 Testing\cf2\b0\fs28" + _
" \cf3\f1\fs40 1... \cf4\i 2... \cf5\ul\i0 3...\cf0\f2\fs20\par" + _
"}"