GUI VB.Net Tutorial

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class MessageBoxReturnValue
   public Shared Sub Main
        Dim intReturnValue As Integer
        intReturnValue = MessageBox.Show("This is also a message box!", "Message Box", _
            MessageBoxButtons.OKCancel, MessageBoxIcon.Information, _
            MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
        If (intReturnValue = DialogResult.OK) Then
            Console.WriteLine("You clicked the OK button.")
        End If
   End Sub
End class