FarPoint.Win.Spread.FpSpread fpSpread1 = new FarPoint.Win.Spread.FpSpread();
FarPoint.Win.Spread.SheetView shv = new FarPoint.Win.Spread.SheetView();
DialogResult dlg;
textBox1.Visible = true;
fpSpread1.Location = new Point(10, 10);
fpSpread1.Height = 200;
fpSpread1.Width = 400;
Controls.Add(fpSpread1);
fpSpread1.Sheets.Add(shv);
fpSpread1.ActiveSheet.AddSelection(1, 1, 3, 3);
dlg = MessageBox.Show("Do you want to retain the selection??", "RetainSelectionBlock", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
fpSpread1.RetainSelectionBlock = true;
textBox1.Focus();
}
Dim fpSpread1 As New FarPoint.Win.Spread.FpSpread()
Dim shv As New FarPoint.Win.Spread.SheetView()
Dim dlg As DialogResult
TextBox1.Visible = True
fpSpread1.Location = New Point(10, 10)
fpSpread1.Height = 200
fpSpread1.Width = 400
Controls.Add(fpSpread1)
fpSpread1.Sheets.Add(shv)
fpSpread1.ActiveSheet.AddSelection(1, 1, 3, 3)
dlg = MessageBox.Show("Do you want to retain the selection??", "RetainSelectionBlock", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
fpSpread1.RetainSelectionBlock = True
TextBox1.Focus()
End If