how to create COM in VB
=======================


1) activex dll project
2) change project name as ourcoms
3) change class name as ourcom1
-----------------------------
4) write the function
public function   echo(a as variant) as variant
--------------------------------
5) save project
6) make dll
---------------------------------
7) create a test project as exe
8) 
   on button1
   ----------
   set ob=createobject("ourcoms.ourcom1")
   msgbox("ob ready")
   a = text1.text
   r = ob.echo(a)
   msgbox(r)
******************************************