Mega Code Archive
DirectCast from Integer to MsgBoxResult
<![CDATA[
Option Strict On
Public Module TestDirectCast
Public Sub Main
Dim choice As Integer = MsgBox("Continue?", MsgBoxStyle.YesNo)
Dim result As MsgBoxResult = DirectCast(choice, MsgBoxResult)
Console.WriteLine(result.ToString)
End Sub
End Module
No
]]>