Calculando o ângulo Theta de uma determinada coordenada retangular

'Este exemplo mostra como calcular o ângulo
'Theta a partir da conversão de coordenadas
'retangulares (x, y) para coordenadas 
'polares (r, theta).

'O ângulo Theta é o ângulo cuja tangente é o 
'quociente de dois números

Module Module1
  Sub Main()
    Dim x As Double = 2
    Dim y As Double = 3

    Console.WriteLine("O ângulo theta é " & _
      Math.Atan2(x, y))

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module