C#

private void BtnGenrate_Click(object sender, EventArgs e)<br />
        {<br />
            NomanInternational.Reports.PartyStatementRpt psrpt = new NomanInternational.Reports.PartyStatementRpt();<br />
            DateTime start = Convert.ToDateTime(txtdateto.Text);<br />
            DateTime end = Convert.ToDateTime(txtdatefrom.Text);<br />
            crystalReportViewer1.ReportSource = psrpt;<br />
            crystalReportViewer1.SelectionFormula = "{OB.heads}='" + Heads.Text + "' and {Recive.trans_date}>=#" + start.ToShortDateString() + "# and {Recive.trans_date}<=#" + end.ToShortDateString() + "# ";<br />
            CrystalDecisions.CrystalReports.Engine.TextObject to = (CrystalDecisions.CrystalReports.Engine.TextObject)psrpt.ReportDefinition.Sections["Section1"].ReportObjects["Text12"];<br />
            to.Text = txtdateto.Text;<br />
        }

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