Visual Basic

public AppDomain LoadAssemblies()
{
	AppDomain appdomain = AppDomain.CreateDomain("dynamic");
	string[] files = Directory.GetFiles(Environment.CurrentDirectory, "*.dll");
	if(files != null)
	{
		foreach(string file in files)
		{	
			Assembly a = Assembly.LoadFile(file);
			if(a != null)
			{
				Type[] types = a.GetTypes();
				foreach(Type t in types)
				{	
					Type[] interfaces = t.GetInterfaces();
					foreach(Type i in interfaces)
					{
                                                // Check for some type of interface
						if(string.Compare(i.ToString(), "IFun", true) == 0)
							appdomain.Load(file);
					}
				}
			}
		}
		
	}
	return appdomain;
}

using System;

namespace test
{
	class Class1
	{
		public delegate void RegisterEventHandler();
		public event RegisterEventHandler Register;
		
		public void fun()
		{
			Console.WriteLine("Hello from fun!");	
		}

		public void morefun()
		{
			Console.WriteLine("Hello from more fun!");
		}

		[STAThread]
		static void Main(string[] args)
		{
			Class1 c = new Class1();

			// Register new event handlers that match 
			// the appropriate delete method signature.
			c.Register += new RegisterEventHandler(c.fun);
			c.Register +=new RegisterEventHandler(c.morefun);

			// Confirm we have registered some events
			// and then fire event appropriatly.
			if(c.Register != null)
				c.Register();
		
			Console.Read();
		}
	} 
}

Private Sub MouseEnter(ByVal sender as Object, ByVal e as EventArgs) Handles Button1.MouseEnter, ... Buttonx.MouseEnter

   Dim B as Button = sender

   Stack.Push(B.name,"MouseEnter")

End Sub

Private Sub MouseLeave(ByVal sender as Object, ByVal e as EventArgs) Handles Button1.MouseLeave, ... Buttonx.MouseLeave

   Dim B as Button = sender

   Stack.Push(B.name,"MouseLeave")

End Sub