Math.Cosh returns the hyperbolic cosine of the specified angle.
Imports System
Imports Microsoft.VisualBasic
Module SinhCosh
Sub Main()
Dim sinhArg As Double = Math.Sinh(0.5)
Dim coshArg As Double = Math.Cosh(0.5)
End Sub 'UseTwoArgs
End Module 'SinhCosh