Module Module1
Sub AHandler(ByVal o As Object, ByVal e As System.EventArgs)
Console.WriteLine("handler")
End Sub
Sub Main()
Dim TodayDate As DateTime = Today()
Console.WriteLine(TodayDate)
Dim MyArray() As Double = {3.159, System.Math.Sqrt(2)}
Console.WriteLine(MyArray(1))
Dim MyHandler As EventHandler ' = AddressOf AHandler
MyHandler(Nothing, Nothing)
Try
Dim MyException As Exception = New Exception("Raise an exception!")
Throw MyException
Catch e As Exception
Console.WriteLine(e.StackTrace())
End Try
End Sub
End Module
11/05/2007 12:00:00 AM
1.4142135623731
Unhandled Exception: System.NullReferenceException: Object reference not set to an instance of an ob
ject.
at Module1.Main()