VB.NET によるイベント ハンドラのについて

	public class Form1 : System.Windows.Forms.Form
	{
		private System.Windows.Forms.Timer timer1;
		private System.Windows.Forms.Button button1;
		private System.ComponentModel.IContainer components;

		public Form1()
		{
			InitializeComponent();
		}

		protected override void Dispose( bool disposing )
		{
			// 省略
		}

		#region Windows フォーム デザイナで生成されたコード 
			// 省略
		#endregion

		[STAThread]
		static void Main() 
		{
			Application.Run(new Form1());
		}

		private void timer1_Tick(object sender, System.EventArgs e)
		{
			System.Diagnostics.Debug.WriteLine("Form1.timer1_Tick");
		}

		private void Form1_Load(object sender, System.EventArgs e)
		{
			timer1.Enabled = true;
			timer1.Interval = 1000;
			timer1.Start();
		}

		private void button1_Click(object sender, System.EventArgs e)
		{
			clsSample clsTest = new clsSample();
			clsTest.evtEvent += new EventHandler(Sample1);
			clsTest.Aciton();
		}

		private void Sample1(object sender, EventArgs e)
		{
			timer1.Interval = 100;
			System.Diagnostics.Debug.WriteLine("Sample1実行!!!!!");
		}
	}
	
	public class clsSample
	{
		public event EventHandler evtEvent;
		protected System.Diagnostics.Process SampleProcess = new System.Diagnostics.Process();

		public clsSample()
		{
			SampleProcess.EnableRaisingEvents = true;
			SampleProcess.Exited += new EventHandler(processExited);
		}

		public void Aciton()
		{
			SampleProcess.StartInfo.FileName = @"c:\test.txt";
			SampleProcess.Start();
		}

		private void processExited(object sender, EventArgs e)
		{
			if(evtEvent != null)
				evtEvent(this, EventArgs.Empty);
		}
	}

		private void timer1_Tick(object sender, System.EventArgs e)
		{
			System.Diagnostics.Debug.WriteLine("Form1.timer1_Tick");
			timer1.Interval = timer1.Interval+10;
		}

    Private Sub Button2_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Interval = 1000
    End Sub