主题：IP地址PING不通为什么不强制退出？

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "c2" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
       
        If TryConnectHost(ip) Then
            If Network.Ping(ip) Then
                msgbox(ip)
                bscrmurl=ip
                e.ConnectionString = e.ConnectionString.Replace("cc",ip)
               
            Else
                Messagebox.Show("无法链接到服务器,请核对服务器地址")
                basemainform.close()
                Syscmd.Project.Exit(False) 

                  ‘运行到这个地方以后，为什么不强制退出，还继续运行，各位给看一下

            End If
           
        End If 

    Else
        messagebox.show("数据库路径文件不存在,请联系管理员")
    End If
End If