VB.Net程序在调试时崩溃，没有任何异常或错误

Question

我目前将我的工作站从Windows 7切换到Windows 10.之后我遇到了我的项目问题，因为它崩溃而没有显示任何错误或异常，即使在调试时也是如此。我从未遇到过这种情况。此外，该项目在Windows 7上仍然正常工作。如果任何人遇到这样的情况，请帮助抛出异常或错误。

我已经检查了异常设置中的所有选项，但仍然没有成功。

  Public Sub Main()
    Const C_FunctionName As String = "Main"
    Try
        Application.EnableVisualStyles() ' Visuelle XP Stile aktivieren
        Control.CheckForIllegalCrossThreadCalls = False
        If IstInstanzSchonVorhanden() = True Then Exit Sub

        Meldungen.InitByRegistry("SOFTWARE\abc\cdf\")

        Meldungen.Log(1, "START", C_FunctionName)
        ModAnimation.ScreenMessage("vvv wird initialisiert", abc.cdf.Utils.ctScreens.cStartEnterpriseIndividual)

        'Benutzer initialisieren und anmelden
        My.User.InitializeWithWindowsUser()

        mBenutzer = New x.y.Core.Benutzer
        If RegLesen("Anmeldemaske", "0") = "1" Then
            ModAnimation.ScreenStop()
            Dim lLoginform As New x.LoginForm
            lLoginform.Validiere = AddressOf ValidateNamePwd
            lLoginform.Programmname = "E N T E R P R I S E"
            lLoginform.Fenstername = "x Enterprise"
            lLoginform.Username = RegLesen("Anmeldename", "")
            If lLoginform.ShowDialog() = DialogResult.OK Then
                RegSchreiben("Anmeldename", lLoginform.Username)
                lLoginform.Close()
                If Not My.User.IsAuthenticated Then
                    Exit Sub
                End If
            Else
                lLoginform.Close()
                Exit Sub
            End If
            ModAnimation.ScreenMessage("x Enterprise wird initialisiert", abc.cdf.Utils.ctScreens.cStartEnterpriseIndividual)
        End If

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        ModAnimation.ScreenMessage("Benutzer wird angemeldet", abc.cdf.Utils.ctScreens.cStartEnterpriseIndividual)
        If mBenutzer.Init("abc Enterprise", My.Application.Info.DirectoryPath, "test.log", 0, "", "default.udl") Then
            If mBenutzer.Anmelden = False Then
                MsgBox("Benutzer konnte nicht angemeldet werden." & vbCrLf & mBenutzer.Fehler.TextAus)
                Exit Sub
            End If
            ModAnimation.ScreenMessage("Archivbereiche werden initialisiert", abc.cdf.Utils.ctScreens.cStartEnterpriseIndividual)
            mArchivCol = mBenutzer.AlleArchivBes
        Else
            MsgBox("Benutzer konnte nicht angemeldet werden." & vbCrLf & mBenutzer.Fehler.TextAus)
            Exit Sub
        End If

        Meldungen.Log(9, "frmMain anzeigen", C_FunctionName)

        ModAnimation.ScreenMessage("abc Enterprise wird gestartet", abc.cdf.Utils.ctScreens.cStartEnterpriseIndividual)
        With frmMain
            .Width = CType(RegLesen("FensterBreite", .Width.ToString), Integer)
            .Height = CType(RegLesen("FensterHöhe", .Height.ToString), Integer)
            .Left = CType(RegLesen("FensterPosY", .Left.ToString), Integer)
            .Top = CType(RegLesen("FensterPosX", .Top.ToString), Integer)
            .WindowState = CType(RegLesen("FensterStand", CStr(FormWindowState.Maximized)), FormWindowState)
        End With

        **frmMain.ShowDialog()**
        Meldungen.Log(1, "OK", C_FunctionName)
    Catch ex As Exception
        Debug.Assert(False)
        Meldungen.Log(1, "Fehler: " & ex.Message, C_FunctionName)
    End Try
End Sub