Sub WriteScfEmbeddedProperty(connection, _  
			context, 			_
			resource, 		 _
			propertyName, 	 _
			value, 			_
			value1, 			 _
			value2)		 
			
 
	Dim vProperty
	Dim found

	found = false

	For Each vProperty In resource.Props
		If UCase(vProperty.PropertyName) = UCase(propertyName) Then

			' Modify the values.
			vProperty.Value = value
			vProperty.Value1 = value1
			vProperty.Value2 = value2
			resource.Put_ , context
			found = true
		End If
	Next   
	
	If found = False Then
	
		' Property does not exist, so create it.
		Dim embeddedProperty
		Set embeddedProperty = connection.Get("SMS_EmbeddedProperty").Spawninstance_()
		embeddedProperty.PropertyName = propertyName
		embeddedProperty.Value = value
		embeddedProperty.Value1 = value1
		embeddedProperty.Value2 = value2
	
		' Add the property to the properties.
		' If the props array does not exist, create it.
		If ISNull (resource.Props) Then
			resource.Props = array(embeddedProperty)
		Else   
			' Grow the array and add the property.
			dim properties
			properties = resource.Props
			Redim Preserve properties(UBound(properties) + 1)
			Set properties(UBound(properties)) = embeddedProperty
			resource.Props = properties
		End If 
		resource.Put_,context
	End If
End Sub

public void WriteScfEmbeddedProperty(
	IResultObject resource,
	string propertyName,
	int value,
	string value1,
	string value2)
{
	try
	{

		// Properties
		Dictionary<string, IResultObject> EmbeddedProperties = resource.EmbeddedProperties;

		// Get the property, or create it.
		IResultObject ro;
		if (EmbeddedProperties.ContainsKey(propertyName))
		{
			ro = EmbeddedProperties[propertyName];
	}
		else
		{
			ConnectionManagerBase connection = resource.ConnectionManager;
			ro = connection.CreateEmbeddedObjectInstance("SMS_EmbeddedProperty");
			EmbeddedProperties.Add(propertyName, ro);
	}

		ro["PropertyName"].StringValue = propertyName;
		ro["Value"].IntegerValue = value;
		ro["Value1"].StringValue = value1;
		ro["Value2"].StringValue = value2;

		resource.EmbeddedProperties = EmbeddedProperties;

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