C#

PropertyEditor.CalmdownWarningAttribute.SetValue(typeof(Foo).GetProperty("Speed1"), true);

public static void SetValue(System.Reflection.PropertyInfo property, bool value)
            {
                //An array of all attributes of type CalmdownWarning that
                // have been applied to this property.
                object[] attributes = property.GetCustomAttributes(typeof(PropertyEditor.CalmdownWarningAttribute), true);

                //If any CalmdownWarning attribute exists, return true.
                if (attributes.Length <= 0)
                    throw new Exception("Attribute \"ShowWarning\" is not set for property \"" + property.Name + "\".");

                // mark*
                ((CalmdownWarningAttribute)(attributes[0]))._calmdownWarning = value;
            }

public class ExclamationTypeEditor : System.Drawing.Design.UITypeEditor
    {
        public override bool GetPaintValueSupported(System.ComponentModel.ITypeDescriptorContext context)
        {
            return(PropertyEditor.CalmdownWarningAttribute.IsSet(context.PropertyDescriptor));
        }


        public override void PaintValue(System.Drawing.Design.PaintValueEventArgs e)
        {
            if (
                PropertyEditor.CalmdownWarningAttribute.IsSet(e.Context.PropertyDescriptor)
                // mark**
                && !PropertyEditor.CalmdownWarningAttribute.GetValue(e.Context.PropertyDescriptor)
            )
                e.Graphics.DrawImage(InterrollConfigurator.Properties.Resources.Exclamation, e.Bounds);
        }
    }

Function GetResourceIDbyMac(server, mac) 
    Dim counter:counter = 0

    Log ""
    Log "WMI Machine Check "
		
    On Error Resume Next

    Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
    Set objSWbemServices = objSWbemLocator.ConnectServer(server, "\Root\SMS\site_EMEA, username, password)
    objSWbemServices.Security_.ImpersonationLevel = 3

    Set colSwbemObjectSet = objSWbemServices.ExecQuery("Select distinct ResourceID from SMS_G_System_NETWORK_ADAPTER where MACAddress = '" & mac & "'")
    For Each objProcess in colSWbemObjectSet
        log "Record found with Resource ID " & objProcess.ResourceID 
        counter = counter + 1
    Next

    If err.number <> 0 Then
        Log "F:GetResourceID: " & ex.Message
    Else
        If counter = 0 Then 
	    GetResourceIDbyMac = -1
	Else
	    GetResourceIDbyMac = 0
	End If
    End if
End Function

ICustomerFactory c = new CustomerFluentFactory.Create()
                                              .WithName("James")
                                              .WithID();