obj.FromLibrary ("Main.lv","_LV", B4PObject(2))
evlv1.New1(obj.value,"MouseMove")
...
Sub evlv1_NewEvent
o.Value = evlv1.Data
x = o.GetProperty("X")
y = o.GetProperty("Y")
o.Value = obj.RunMethod3("HitTest",x,"System.Int32",y,"System.Int32")
col = o.GetProperty("Column")
...