Imports System.Math
Public Class clsAtan2
 
    Public Sub Main()
 
 
        '********************************************************************************
        ' Purpose: takes 2 double data type numbers and returns a double value 
        ' containing the angle (measured in radians) whose tangent is the 
        ' quotient of two specified numbers (you can convert 
        ' the radians to degrees by multiplying them by Math.PI/180) 
        ' 
        ' Syntax: 	Atan2(y as double, x as double) 
        '  
        ' Parameter1: y - double - y is the y coordinate of a point
        '
        ' Parameter2: x - double - x is the x coordinate of a point
        '
        ' Result: double - the angle measured in radians. (you can 
        ' convert the radians to degrees by multiplying 
        ' them by Math.PI/180)
        '
        '********************************************************************************
        ' This example is from http://idealprogrammer.com
 
        Console.WriteLine("Example #1: 	Atan2(y as double, x as double)")
 
        Console.WriteLine(Atan2(0, 0)) ' Returns 0
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #2: 	Atan2(y as double, x as double)")
 
        Console.WriteLine(Atan2(1, 1)) ' Returns .785398163397448
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #3: 	Atan2(y as double, x as double)")
 
 
 
        Console.WriteLine(Atan2(1, 2)) ' Returns .463647609000806
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsAtan2 As New clsAtan2
        myclsAtan2.Main()
 
 
 
    End Sub
 
End Module