Hi Asad,
perhaps you can adapt this to make it useful?
DynamicModule[{list = {}}, EventHandler[Dynamic[Framed@Graphics[{Red, Line[list], Point[list]},
PlotRange -> 2]], {"MouseClicked" :> AppendTo[list, MousePosition["Graphics"]]}]];
Dynamic[list]
Cheers,
Marco