[Visual Basic 6.0]
This example creates a linear unit using a custom conversion factor.
 
Public Sub CreateCustomUnit()
Dim linearUnitImport As IESRISpatialReferenceGEN2
Set linearUnitImport = New esriGeometry.LinearUnit
Dim cBytesRead As Long
linearUnitImport.ImportFromESRISpatialReference "UNIT[""MyUnit"", 0.5, AUTHORITY[""MyAuthority"", 200000]]", cBytesRead
Dim lu As ILinearUnit
Set lu = linearUnitImport
Debug.Print lu.MetersPerUnit
End Sub

[Visual Basic .NET, C#, C++]
No example is available for Visual Basic .NET, C#, or C++. To view a Visual Basic 6.0 example, click the Language Filter button in the upper-left corner of the page.