ocr: embCallMove Properties D D - 1 - - - u D Mousemove.. VI Mouseup Sub MouseUpo as Integer,y as Integer, shift as Integer) Application.setcursort 1 ) PositionX = embcall.Positionx PositionY = emblall.POsitiony IF X > rep5ched.Fositionx AND X < VsDSched.Fositionx THEN IF Y > rep5ched.Fositionf AND Y < rep5ched.Fositionf + repSched.Sizer THEN VRow = CINTI (I y - rep5ched.Fositionf ) / 25)+1 + vsDSched.5CIOLIPOS DIM vRec AS Object VRec = repSched.GetRecordset ( VReC.SetcurRow VRow ) VRec.SetColvall "EVENT", Label ) END IF END IF
