VB.Net by API/System.Windows.Forms/DialogResult

DialogResult.Abort

<source lang="vbnet"> Imports System.Windows.Forms Public Class Test

   Public Shared Sub Main
       Dim drResult As DialogResult
       drResult = MessageBox.Show("Q?", "Sample", MessageBoxButtons.RetryCancel)
   
       If drResult = DialogResult.Retry Then
         Console.WriteLine("Retry")
       Else
         Console.WriteLine("Cancel")
       End If
   
       Select Case MessageBox.Show("Bad stuff happened","Long Process", MessageBoxButtons.AbortRetryIgnore)
         Case DialogResult.Abort
           Console.WriteLine("abort")
         Case DialogResult.Retry
           Console.WriteLine("retry")
         Case DialogResult.Cancel
           Console.WriteLine("cancel")
         Case Else
           Console.WriteLine("Else")
       End Select
   End Sub

End Class

 </source>

DialogResult.Cancel

<source lang="vbnet"> Imports System.Windows.Forms Public Class Test

   Public Shared Sub Main
       Dim drResult As DialogResult
       drResult = MessageBox.Show("Q?", "Sample", MessageBoxButtons.RetryCancel)
   
       If drResult = DialogResult.Retry Then
         Console.WriteLine("Retry")
       Else
         Console.WriteLine("Cancel")
       End If
   
       Select Case MessageBox.Show("Bad stuff happened","Long Process", MessageBoxButtons.AbortRetryIgnore)
         Case DialogResult.Abort
           Console.WriteLine("abort")
         Case DialogResult.Retry
           Console.WriteLine("retry")
         Case DialogResult.Cancel
           Console.WriteLine("cancel")
         Case Else
           Console.WriteLine("Else")
       End Select
   End Sub

End Class

 </source>

DialogResult.Retry

<source lang="vbnet"> Imports System.Windows.Forms Public Class Test

   Public Shared Sub Main
       Dim drResult As DialogResult
       drResult = MessageBox.Show("Q?", "Sample", MessageBoxButtons.RetryCancel)
   
       If drResult = DialogResult.Retry Then
         Console.WriteLine("Retry")
       Else
         Console.WriteLine("Cancel")
       End If
   
       Select Case MessageBox.Show("Bad stuff happened","Long Process", MessageBoxButtons.AbortRetryIgnore)
         Case DialogResult.Abort
           Console.WriteLine("abort")
         Case DialogResult.Retry
           Console.WriteLine("retry")
         Case DialogResult.Cancel
           Console.WriteLine("cancel")
         Case Else
           Console.WriteLine("Else")
       End Select
   End Sub

End Class

 </source>