Math.Cos returns the cosine of the specified angle.
Imports System
Imports Microsoft.VisualBasic
Module SinCos
Sub Main()
Dim angle As Double = Math.PI * 30 / 180.0
Dim sinAngle As Double = Math.Sin(angle)
Dim cosAngle As Double = Math.Cos(angle)
End Sub
End Module