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

MessageBoxIcon.Error

  
Imports System
Imports System.Drawing
Imports System.Data
Imports System.IO
Imports System.Collections
Imports System.Windows.Forms
Imports System.Drawing.Printing
Public Class MainClass
    Shared Sub Main()
        Dim intResult As Integer
        intResult = MessageBox.Show("The A drive is not ready." & _
           vbCrLf & vbCrLf & _
           "Please insert a diskette into the drive.", _
           "Device Not Ready", _
           MessageBoxButtons.AbortRetryIgnore, _
           MessageBoxIcon.Error, _
           MessageBoxDefaultButton.Button2)
        If intResult = DialogResult.Abort Then
            " Do abort processing here...
            Console.WriteLine( "Abort Clicked")
        ElseIf intResult = DialogResult.Retry Then
            " Do retry processing here...
            Console.WriteLine("Retry Clicked")
        Else "It has to be ignore
            " Do ignore processing here...
            Console.WriteLine("Ignore Clicked")
        End If
    End Sub
End Class

MessageBoxIcon.Information

  
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

MessageBoxIcon.Warning

  

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