Ошибка окна сообщения при выборе значка окна сообщения vb.net

Question

Хорошо, так что программа работает до этого момента. Второе окно сообщения yesno отображает, как я хочу, без ошибок. Но я хочу, чтобы отдельное окно сообщения отображалось пользователю, когда он находится в режиме редактирования. (редактирование вещей в программе). Код:

    Private Sub Form_formclosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
    If inEditMode Then
        Dim dialog As DialogResult = MessageBox.Show("You can't exit the program when in edit mode. Please save your changes before exiting the program.")
        If DialogResult = DialogResult.OK Then
            e.Cancel = True
        End If

    Else
        Dim dialog As DialogResult = MessageBox.Show("Do you really want to close the program? Any unsaved changes will be lost.", "Exit Application?", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)

        If dialog = DialogResult.Yes Then
            Application.ExitThread()
        ElseIf dialog = DialogResult.No Then
            e.Cancel = True
        End If

    End If
End Sub '^warns user before closing the application^

Код работал нормально, пока я не добавил значок окна сообщения в первое окно сообщения. Это не функциональное требование, поэтому оно не так уж важно, но меня беспокоит, что оно не работает.

edit НЕ РАБОТАЯ, Я ОЗНАЧАЮ, ЧТО РЕШЕНИЕ НЕ СОСТАВЛЯЕТ

Answer 1

Перегрузка для MessageBox отсутствует. Показано, что третьим параметром является MessageBoxIcon.

Ближайшая перегрузка -> Show (String, String, MessageBoxButtons, MessageBoxIcon)

См. документация

Вы должны вызывать первое окно сообщения следующим образом:

Dim dialog As DialogResult = MessageBox.Show("Error", "You can't exit the program when in edit mode. Please save your changes before exiting the program.", MessageBoxButtons.Ok, MessageBoxIcon.Error)