Mega Code Archive

 

Categories / VB.Net Tutorial / Development

 

Display Exception Trace

Module Module1     Sub Main()         Try             Console.WriteLine("Result: ", First())         Catch Except As Exception             Console.WriteLine(Except.StackTrace)         End Try     End Sub     Private Function First() As Integer         First = Second()     End Function     Private Function Second() As Integer         Second = Third()     End Function     Private Function Third() As Integer         Dim A As Integer = 0         Third = 100 Mod A     End Function End Module at Module1.Main()