private void ExcelDocViewer( string fileName )
		{
			try
			{
				System.Diagnostics.Process.Start(fileName);
			}
			catch{}
		}

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			Worksheet sheet = workbook.Worksheets[0];

			ExcelFont fontBold = workbook.CreateFont();
			fontBold.IsBold = true;

			ExcelFont fontUnderline = workbook.CreateFont();
			fontUnderline.Underline = FontUnderlineType.Single;

			ExcelFont fontColor = workbook.CreateFont();
			fontColor.KnownColor  = ExcelColors.Green; 

			RichText richText = sheet.Range["A1"].RichText;
			richText.Text = "Bold and underlined and colored text";
			richText.SetFont(0,3,fontBold);
			richText.SetFont(9,18,fontUnderline);
			richText.SetFont(24,30,fontColor);
			

		
		    workbook.SaveToFile("Sample.xls");
			ExcelDocViewer(workbook.FileName);
		}

		Private Sub ExcelDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub

		Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
			Dim workbook As Workbook = New Workbook()
			Dim sheet As Worksheet = workbook.Worksheets(0)

			Dim fontBold As ExcelFont = workbook.CreateFont()
			fontBold.IsBold = True

			Dim fontUnderline As ExcelFont = workbook.CreateFont()
			fontUnderline.Underline = FontUnderlineType.Single

			Dim fontColor As ExcelFont = workbook.CreateFont()
			fontColor.KnownColor = ExcelColors.Green

			Dim richText As RichText = sheet.Range("A1").RichText
			richText.Text = "Bold and underlined and colored text"
			richText.SetFont(0,3,fontBold)
			richText.SetFont(9,18,fontUnderline)
			richText.SetFont(24,30,fontColor)



			workbook.SaveToFile("Sample.xls")
			ExcelDocViewer(workbook.FileName)
		End Sub

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			workbook.LoadFromFile(@"..\..\..\..\..\..\Data\RichTextSample.xls");
			Worksheet sheet = workbook.Worksheets[0];

			richTextBox1.Rtf = sheet.Range["A1"].RichText.RtfText;
		}

		Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
			Dim workbook As Workbook = New Workbook()
			workbook.LoadFromFile("..\..\..\..\..\..\Data\RichTextSample.xls")
			Dim sheet As Worksheet = workbook.Worksheets(0)

			richTextBox1.Rtf = sheet.Range("A1").RichText.RtfText
		End Sub