Arrow and HourGlass on Screen/Monitor

I wrote a VB6 application that loads about 6 tables before it displays the first modal form. And, that takes about 50 secs or more sometimes
depending upon activities on the network.

How can I convert the Screen/Monitor arrow cursor into an hourglass to alert the user that
there is an activity going on. I mean before the form loads, not after. Therefore “screen.mousepointer = vbHourglass” will not work for me.