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