Read Rhino's statusbar x, y, z, and distance value 
- How to read Rhino's status bar x,y,z values with VB6? - without timer object :-)

Until we get a proper method or solution we can use this as a workaround.

All the project files(VB6 source code) can be downloaded in here  Download GetRhino3xyz