 ;
 ;

 ()
	 = ("");
	 = ("");
	.("c1", "");
	.("c2", "");
	.();
	.c1 = 123;
	.c2 = "1";
	.();
	.c1 = 456;
	.c2 = "2";


 ()
	(() + "1cpp.dll");

	();
	Scr = ("MSScriptControl.ScriptControl");
	scr.Language = "vbscript";
	Scr.AddCode("
	        |Function TestVT
	        |Set v=GetObject(""" + .() + """)
	        |	v.SelectLines()
	        |	v.GetLine()
	        |	TestVT=v.c1
	        |End Function");
	(Scr.Eval("TestVT()"));
	Scr=0;

