Coded value domain in Georpocessing.Net

IGPCodedValueDomain

'Units
inputParameter = New GPParameterClass()
inputParameter.DataType = New GPStringTypeClass()
'Set the default value
gpStringValue = New GPStringClass()
gpStringValue.Value = "meters"
inputParameter.Value = CType(gpStringValue, IGPValue)
inputParameter.Direction = esriGPParameterDirection.esriGPParameterDirectionInput
inputParameter.DisplayName = "Units"
inputParameter.Name = "in_units"
inputParameter.ParameterType = esriGPParameterType.esriGPParameterTypeRequired
' Create a fixed list of string values
Dim cvDomain As IGPCodedValueDomain = New GPCodedValueDomainClass()
cvDomain.AddStringCode("meters", "meters")
cvDomain.AddStringCode("feet", "feet")
inputParameter.Domain = CType(cvDomain, IGPDomain)
pParameters.Add(inputParameter)