Cheers

Frank

jb

| I have written a small program that executes a selection of prewritten
| reports from Crystal reports. Some of these reports can take a minute or
so
| to run. Does anybody know if it is possible to have the mouse tun into an
| hourglass while it is running a report. If so how do I do it. I can't seem
o
| find it in the manual.
|
| Cheers
|
| Frank
|
|

Global Mouse_Pointer_Holder As Integer

Sub show_hourglass_mouse_pointer ()
    Mouse_Pointer_Holder = Screen.MousePointer
    Screen.MousePointer = 11    'HourGlass
End Sub

Sub unshow_hourglass_mouse_pointer ()
    Screen.MousePointer = Mouse_Pointer_Holder
End Sub

--

"For God So Loved The World, That He Gave His
Only Begotten Son, That Whosoever Believeth
In Him Should Not Perish, But Have Everlasting
Life"John3:16  * http://pw2.netcom.com/~cbrtjr/wrdthing.html *