Thanks again for your help. After changing to "Sock = newobject('OleTest','OleTest1.vcx')", now I am getting this error :

"Object class is invalid for this container". Have I made a mistake in creating the class or selecting the right Insert control ???