How do I change mouse cursor to hourglass?

[seh]

I'm opening a search results page in a new small window, and it takes quite a while to load if the search is broad. So I want to inform the user that the site is busy searching. At the moment, there is no hourglass and it looks like IE has locked or something, so the user might try and close the new window. So the cursor should change to hourglass while it's loading, and back to normal after it has loaded.

Thanks.

[fkauffman]

MousePointer Property Example
This example changes the mouse pointer to an hourglass while circles are drawn across the screen and then changes the hourglass back to a pointer at the end of the procedure. To try this example, paste the code into the Declarations section of a form. Press F5 to run the program, and then click the form.

Private Sub Form_Click ()
Dim I ' Declare variable.
' Change mouse pointer to hourglass.
Screen.MousePointer = vbHourglass
' Set random color and draw circles on form.
For I = 0 To ScaleWidth Step 50
ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (I, ScaleHeight * Rnd), 400
Next
' Return mouse pointer to normal. Screen.MousePointer = vbDefault
End Sub

[Sastraxi]

I couldn't find anything, but try popping up two windows: one that has just a little animated gif and the other that does the searching. Popup the "loading" GIF one last.