'Declaration
Public Shared Function Convert( _
ByVal As Double, _
ByVal As LogicalUnit, _
ByVal As Double, _
ByVal As LogicalUnit, _
ByVal As Double _
) As Double
'Usage
Dim sourceValue As Double
Dim sourceUnit As LogicalUnit
Dim sourceDpi As Double
Dim destinationUnit As LogicalUnit
Dim destinationDpi As Double
Dim value As Double
value = LogicalUnitConverter.Convert(sourceValue, sourceUnit, sourceDpi, destinationUnit, destinationDpi)