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

MessageBoxButtons.AbortRetryIgnore

  
Imports System.Windows.Forms
public class MessageBoxWithMessageAndTile
   public Shared Sub Main
        MessageBox.Show("Message", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning)
   End Sub
End class

MessageBoxButtons.OKCancel

  
Imports System.Windows.Forms
public class MessageBoxOKCancelInformation
   public Shared Sub Main
      Dim answer As DialogResult
      answer = MessageBox.Show("A","B", MessageBoxButtons.OKCancel,MessageBoxIcon.Information)
   End Sub
End class

MessageBoxButtons.RetryCancel

  
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