GUI VB.Net Tutorial

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class MsgBoxButtonSetting
   public Shared Sub Main
        Dim Areturn As String
        Areturn = MsgBox("Message", vbOKCancel + vbDefaultButton1 + vbQuestion, "Title")
        'vbOKOnly + vbInformation + vbDefaultButton1
        'vbOKOnly + vbExclamation + vbDefaultButton1
        'vbOKOnly + vbDefaultButton1 + vbCritical
        Select Case Areturn
            Case vbOK
                Console.WriteLine("vbOK")
            Case vbCancel
                Console.WriteLine("vbCancel")
            Case vbAbort
                Console.WriteLine("vbAbort")
            Case vbRetry
                Console.WriteLine("vbRetry")
            Case vbIgnore
                Console.WriteLine("vbIgnore")
            Case Else
                Console.WriteLine("Else")
        End Select
        
   End Sub
End class