Dim cvalues() As Object
if _datarangevalues <> "" then
   ReDim cvalues(_datarangecount)
   For irv As Integer = 0 To _datarangecount -1
      cvalues(irv) = _datarangevalues.Split(",")(irv).trim()
   Next
   
   odatamap = dsgrid1.DisplayDataMap( _
		DataMapType:=_datamaptype, _
		DataField:=oField, _
		ShowDataBy:=_showbydata , _
		DataRangeCount:=_datarangecount, _
		DataRangeType:=_datarangetype, _
		DataRangeOrder:=_datarangeorder , _
		ArrayOfCustomValues:=cvalues , _
		ColorScheme:=mappoint.GeoDataConstants.geoColorSchemeDefault  )

Else 
   '  _datarangevalues = "" they didn't give me anything so 
   ' I will leave out that parm and MP will split them up automatically

	
	odatamap = dsgrid1.DisplayDataMap( _
		DataMapType:=_datamaptype, _
		DataField:=oField, _
		ShowDataBy:=_showbydata , _
		DataRangeCount:=_datarangecount, _
		DataRangeType:=_datarangetype, _
		DataRangeOrder:=_datarangeorder , _
		ColorScheme:=mappoint.GeoDataConstants.geoColorSchemeDefault  )	
end if