C#

private void SetParameter(string name, string val)
{
	ParameterFieldDefinitions paramFlds = report.DataDefinition.ParameterFields; // Get the parameter fields
	ParameterFieldDefinition paramFld = paramFlds[name]; // Get a specific one
	ParameterDiscreteValue discreteValue = new ParameterDiscreteValue(); // Create a value type
	ParameterValues paramValues = paramFld.CurrentValues; // Get the collection of current values
	paramValues.Clear(); // Clear the current
	discreteValue.Value = val; // Set the value
	paramValues.Add(discreteValue); // Add the value type
	paramFld.ApplyCurrentValues(paramValues); // Apply the parameters to the document
}

openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "CSharp files (*.cs)|*.cs" ;
if (openFileDialog1.ShowDialog() == DialogResult.OK)
    {
       // do your work here
       //OpenFileDialog have properties and method that    wil let yo work with file like get file name,opern it..etc

    }
For More info look at <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemwindowsformsopenfiledialogclasstopic.asp" rel="nofollow">OpenFileDialog Class</a>[<a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemwindowsformsopenfiledialogclasstopic.asp" target="_blank" rel="nofollow" title="New Window">^</a>]

const int WM_SYSCOMMAND  = 0x0112;
const int SC_CLOSE    =    0xF060;

protected override void WndProc(ref Message m)
{
	if(m.Msg==WM_SYSCOMMAND)
	{
		if(m.WParam.ToInt32()==SC_CLOSE)
		{
		      MessageBox.Show("Application will be close");
                       // call the default after you handle it			
                       base.WndProc(ref m);
		}
	}
	else
	{
		base.WndProc (ref m);
	}
}

protected override void WndProc(ref Message m)
{
	if(m.Msg==WM_SYSCOMMAND)
	{
		if(m.WParam.ToInt32()==SC_CLOSE)
		{
		      MessageBox.Show("Application will be close");
                }
			
	}
        base.WndProc (ref m);
}

Set objWMIServices=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & machineName & "\root\CIMV2")
 
set objSink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
 
WScript.Echo "Starting Listeners... Win32_Process"
objWMIServices.ExecNotificationQueryAsync objSink, "SELECT * FROM __InstanceCreationEvent WITHIN 60 WHERE TargetInstance ISA 'Win32_Process'"
 
Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext)
	Set objTargetInstance = objWMIServices.Get(wmiObject.Properties_("TargetInstance").Value.Path_.Path)
	WScript.Echo Now() & " - " & objTargetInstance.GetObjectText_()
	WScript.Echo objTargetInstance.CreationClassName
	If objTargetInstance.CreationClassName = "Win32_Process" Then
		Rtn = objTargetInstance.GetOwner(strNameOfUser, strDomain)
		If Rtn <> 0 Then
			Wscript.Echo "Could not get owner info for process " & objTargetInstance.Name & VBNewLine & "Error = " & Rtn
		Else 
			Wscript.Echo "Process launched by " & strDomain & "\" & strNameOfUser & "."
		End If
	End If
End Sub