Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
　　If Page.IsPostBack Then
　　　　Return
　　End If

　　Dim bc As New FarPoint.Web.Spread.ButtonCellType
　　bc.CommandName = "OpenDefault2"
　　FpSpread1.ActiveSheetView.Cells(1, 1).CellType = bc
End Sub

Protected Sub FpSpread1_ButtonCommand(ByVal sender As Object, ByVal e As FarPoint.Web.Spread.SpreadCommandEventArgs) Handles FpSpread1.ButtonCommand
　　If e.CommandName = "OpenDefault2" Then
　　　　Dim startupScript As String
　　　　startupScript = "<script>window.onload=initwin; function initwin() {window.open('Default2.aspx');}</script>"

　　　　Me.ClientScript.RegisterStartupScript(Me.GetType, "openwindow", startupScript)
　　End If
End Sub

protected void Page_Load(object sender, EventArgs e)
{
　　if (IsPostBack)
　　{
　　　　return;
　　}

　　FarPoint.Web.Spread.ButtonCellType bc = new FarPoint.Web.Spread.ButtonCellType();
　　bc.CommandName = "OpenDefault2";
　　FpSpread1.ActiveSheetView.Cells[1, 1].CellType = bc;
}

protected void FpSpread1_ButtonCommand(object sender, FarPoint.Web.Spread.SpreadCommandEventArgs e)
{
　　if (e.CommandName == "OpenDefault2")
　　{
　　　　string startupScript = "<script>window.onload=initwin; function initwin() {window.open('Default2.aspx');}</script>";
　　　　ClientScript.RegisterStartupScript(this.GetType(), "openwindow", startupScript);
　　}
}