Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　Dim temp As FarPoint.Win.Spread.SheetView
　　temp = FpSpread1.ActiveSheet.Clone()
　　' シート名を設定
　　temp.SheetName = "Sheet2"
　　FpSpread1.Sheets.Add(temp)
End Sub

private void button1_Click(object sender, EventArgs e)
{
　　FarPoint.Win.Spread.SheetView temp;
　　temp = fpSpread1.ActiveSheet.Clone();
　　// シート名を設定
　　temp.SheetName = "Sheet2";
　　fpSpread1.Sheets.Add(temp);
}