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
|