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

MessageBoxIcon.Error

<source lang="vbnet"> 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

 </source>

MessageBoxIcon.Information

<source lang="vbnet"> 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

 </source>

MessageBoxIcon.Warning

<source lang="vbnet">

Imports System.Windows.Forms public class MessageBoxWithMessageAndTile

  public Shared Sub Main
       MessageBox.Show("Message", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning)
  End Sub

End class

 </source>