Sub WriteScfRegMultiStringList(connection,  _
									context, _
									resource,   _
									valueName,  _
									valueStrings)
	 Dim vRegMultiStringLists 
	 Dim vRegMultiStringList 
	 
	 ' Are there any reg multi strings in the array?
	 If  IsNull(resource.RegMultiStringLists) =  False Then
	 
		' Walk through the RegMultiStringLists in the SCI.
		For Each vRegMultiStringList In resource.RegMultiStringLists
	 
			' Is this the item you're looking for?
			If LCase(vRegMultiStringList.ValueName) = LCase(valueName) Then
		
				' Set the new values.
				vRegMultiStringList.ValueStrings = valueStrings
				resource.Put_,context
				' You're done, so exit.
				Exit Sub
			End If
		Next 
	End If

	' No Item was found, so create it.

	' Create the new reg multi string list.
	Dim regMultiStringList 
	Set regMultiStringList = connection.Get("SMS_Client_Reg_MultiString_List").SpawnInstance_

	' Set the properties of the new instance.
	regMultiStringList.ValueName = valueName
	regMultiStringList.ValueStrings = valueStrings

	' Do you need to create a new array or resize the existing one?
	If ISNull(resource.RegMultiStringLists) = True Then
	
		' Create a new array.
		resource.RegMultiStringLists = Array(regMultiStringList)

	Else
		' Grow the array by 1.
		vRegMultiStringLists = resource.RegMultiStringLists
		ReDim Preserve vRegMultiStringLists(UBound(vRegMultiStringLists) + 1)
	
		' Add the new item.
		Set vRegMultiStringLists(UBound(vRegMultiStringLists)) = regMultiStringList
		resource.RegMultiStringLists = vRegMultiStringLists
	End If

	resource.Put_,context
End Sub

public void WriteScfRegMultiStringList(
IResultObject resource,
string valueName,
ArrayList valueStrings)
{
	try
	{
		Dictionary<string, IResultObject> regMultiStringLists =  regMultiStringLists = resource.RegMultiStringLists;
	
		// Get the property, or create it.
		IResultObject ro;
		if (regMultiStringLists.ContainsKey(valueName))
		{
			ro = regMultiStringLists[valueName];
	}
		else
		{
			ConnectionManagerBase connection = resource.ConnectionManager;
			ro = connection.CreateEmbeddedObjectInstance("SMS_Client_Reg_MultiString_List");
			regMultiStringLists.Add(valueName, ro);
	}

		ro["ValueName"].StringValue = valueName;
		ro["ValueStrings"].StringArrayValue = (string[])valueStrings.ToArray(typeof(string));

		resource.RegMultiStringLists = regMultiStringLists;

		// Commit the change.
		resource.Put();
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to write RegMultiStringList: " + e.Message);
		throw;
}
}