主题：关闭窗口是为什么会连项目都关闭了

如上说述

我增加一个窗体，在窗体

BeforeClose

事件中写入代码：

Dim s As DataTable = DataTables("标准产品")
With s
    If .HasChanges Then
        If MessageBox.Show("您已修改过此内容,是否进行保存?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
            .RejectChanges()
            .DeleteFor("图号 is null")
            .Save
            Forms("添加图号").Close
            Forms("标准产品").Open
        Else
            .RejectChanges()
            .DeleteFor("图号 is null")
            Forms("添加图号").Close
            Forms("标准产品").Open
        End If
    Else
        Forms("添加图号").Close
        Forms("标准产品").Open
    End If
End With

代码可以执行，但执行完代码手为什么直接退出了项目？试了5次结果一样，特向师傅、师兄们求解！