Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class MsgBoxReturnValue
public Shared Sub Main
Dim intReturnValue As Integer
intReturnValue = MsgBox("This is a message box!",MsgBoxStyle.OKCancel + MsgBoxStyle.Information + MsgBoxStyle.SystemModal, "Message Box")
If (intReturnValue = MsgBoxResult.OK) Then
Console.WriteLine("You clicked the OK button.")
End If
End Sub
End class
|