新创建了一个模式窗口，但是打开之后，在几秒内自动关闭了 是怎么回事？

下面是 项目事件 AfterOpenProject 事件  请问下问题出在哪里？
此主题相关图片如下：tp3.png

       If DataTables("项目基础资料表").DataRows.Count = 0 Then
            Dim Result As DialogResult
            Result = MessageBox.Show("暂无项目,是否增加项目?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.Yes Then
                Forms("项目基础信息界面").Show()
                If DataTables("项目基础资料表").DataRows.Count = 0 Then
                    Syscmd.Project.Exit()
                Else
                    Forms("主界面").Show
                End If
            Else
                Syscmd.Project.Exit()
            End If
       End If   

一次不成功，多上传几次