Vb.net 如何让MessageBoxButtons.RetryCancel重新启动或退出程序？

如何使MessageBoxButtons.RetryCancel重新启动程序（用于重试）或退出程序（用于取消）？这是我的密码：

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
    ' displays a student's grade

    Double.TryParse(txtEarned.Text, dblEarned)

    For Each minimum As Double In dblMinimumPoints
        If dblEarned >= minimum Then
            lblGrade.Text = strGrade(gradeIndex)
            gradeIndex += 1
        End If
    Next

    txtEarned.ReadOnly = False
    btnDisplay.Enabled = False

    MessageBox.Show("Do you want to try again?", "Grade Calculator",
                    MessageBoxButtons.RetryCancel, MessageBoxIcon.Question)
End Sub

---

我想这是一个WinForms应用程序。
因此，如果是这种情况，则包含所需的方法

Dim result As DialogResult = MessageBox.Show("Do you want to try again?", _
                             "Grade Calculator", _
                             MessageBoxButtons.RetryCancel, MessageBoxIcon.Question)
if result = DialogResult.Retry Then
    Application.Restart()
else
    Application.Exit()
End If

只是一点警告，这两种方法都有点危险，许多人建议不要使用它们。通过对这些方法的一点研究，你可以发现很多关于调用这两种方法的副作用的警告

---

等等……

我想这是一个WinForms应用程序。
因此，如果是这种情况，则包含所需的方法

Dim result As DialogResult = MessageBox.Show("Do you want to try again?", _
                             "Grade Calculator", _
                             MessageBoxButtons.RetryCancel, MessageBoxIcon.Question)
if result = DialogResult.Retry Then
    Application.Restart()
else
    Application.Exit()
End If

只是一点警告，这两种方法都有点危险，许多人建议不要使用它们。通过对这些方法的一点研究，你可以发现很多关于调用这两种方法的副作用的警告

---

依此类推……

MessageBox返回一个DialogResult对象。您只需要向分支输入if语句。end语句从程序中退出。无需重新启动，只需清除数据输入字段

 Dim adlg As DialogResult = MessageBox.Show("blah", "blao", MessageBoxButtons.RetryCancel)
        If adlg = Windows.Forms.DialogResult.Retry Then
            resetProgram()
        Else
            'cancel
            End

        End If

---

MessageBox返回一个DialogResult对象。您只需要向分支输入if语句。end语句从程序中退出。无需重新启动，只需清除数据输入字段

 Dim adlg As DialogResult = MessageBox.Show("blah", "blao", MessageBoxButtons.RetryCancel)
        If adlg = Windows.Forms.DialogResult.Retry Then
            resetProgram()
        Else
            'cancel
            End

        End If

---

我想这是一个WinForms应用程序，对吗？是的，这是一个WinForms应用程序我想这是一个WinForms应用程序，对吗？是的，这是一个WinForms应用程序你有一个打字错误。它是应用程序。退出不存在。它不允许我编辑一个字符。回答得好。你的拼写错误。它是应用程序。退出不存在。它不允许我编辑一个字符。回答得好。