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