Math.Cos
Public Class Tester Public Shared Sub Main Dim X As Single Dim Y As Single X = CSng( Math.Cos(100)) Y = CSng( Math.Sin(100)) Console.WriteLine(X) Console.WriteLine(Y) End Sub End Class