Imports System.Windows.Forms
public class MsgBoxDemo
public Shared Sub Main
Dim exita As String
exita = MsgBox("Exit?", Microsoft.VisualBasic.MsgBoxStyle.Exclamation + Microsoft.VisualBasic.MsgBoxStyle.YesNo + Microsoft.VisualBasic.MsgBoxStyle.MsgBoxHelp, "Title")
If exita = vbYes Then
End
End If
Console.WriteLine( Microsoft.VisualBasic.MsgBoxStyle.MsgBoxHelp)
End Sub
End class
|