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
0.8623189
-0.5063657