Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　' Xシェイプを追加します
　　Dim xs As New FarPoint.Win.Spread.DrawingSpace.XShape
　　xs.Name = "x-01"
　　xs.BackColor = Color.Red
　　xs.SetBounds(30, 10, 100, 100)
　　FpSpread1.ActiveSheet.AddShape(xs)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　' シェイプをアクティブ化します
　　Dim shape As FarPoint.Win.Spread.DrawingSpace.XShape = FpSpread1.ActiveSheet.GetShape("x-01")
　　FpSpread1.ActiveWindowlessObject = shape
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
　　' シェイプを非アクティブ化します
　　FpSpread1.ActiveWindowlessObject = Nothing
End Sub

private void Form1_Load(object sender, EventArgs e)
{
　　// Xシェイプを追加します
　　FarPoint.Win.Spread.DrawingSpace.XShape xs = new FarPoint.Win.Spread.DrawingSpace.XShape();
　　xs.Name = "x-01";
　　xs.BackColor = Color.Red;
　　xs.SetBounds(30, 10, 100, 100);
　　fpSpread1.ActiveSheet.AddShape(xs);
}

private void button1_Click(object sender, EventArgs e)
{
　　// シェイプをアクティブ化します
　　FarPoint.Win.Spread.DrawingSpace.XShape shape = (FarPoint.Win.Spread.DrawingSpace.XShape)fpSpread1.ActiveSheet.GetShape("x-01");
　　fpSpread1.ActiveWindowlessObject = shape;
}

private void button2_Click(object sender, EventArgs e)
{
　　// シェイプを非アクティブ化します
　　fpSpread1.ActiveWindowlessObject = null;
}