Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Return value from MsgBox

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