DirectCast from Integer to MsgBoxResult : DirectCast « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. DirectCast

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