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
|
