Mouse pointer

Hello guys

screen.mousepointer = vbhourglass

I guess it should show my pointer as hourglass anywhere on my desktop. But it shows only on the form. If it does show only on the form so can anyone tell me what is the code of that

Thanks in advance

I don't have any code for you just a question?
The reason it only shows on your form is to indicate that your program is busy. If a user was multi-tasking and switched over to another program then the screen.mousepointer = vbhourglass would still be showing.

That's not the effect that you want to achieve is it?
I don't know, just thought I'd ask.....:)

that's right I understand what you are saying. But is there anyway I can disable my pointer while it's showing hourglass, I mean it still closes the form.

Are you saying you want to disable mouse input (clicks) when your program is busy and showing the vbhourglass mousepointer? Therefore no one can close your program.

The program I made, as soon as user starts it shows a little form for time input (that is not a main form). When user enters time small form disappears and main form loads, between this time there is nothing on the screen, the main form take a while.

My question is when the main form is loading how can I show user that system is busy, because hourglass works only on a form.

Please help??
Thanks in advance

If I were you I would do a variation of a Splash Screen.
(1) Have your little form load first.

(2)While the user is inputting the time have the Main Form
load in the background - Load frmMain - put this in your little
forms Load Event.

(3)When User has entered time and clicked OK button - In the Ok button click event have the Main Form show - frmMain.Show - and then unload the little form.

Have your mousepointer change to vbhourglass after the user clicks Ok button, and then have it change back to vbdefault before you unload the little form.


*Little Form*

Code:

---

Private Sub Form_Load()
    Me.Show
    Load frmMain
End Sub

Private Sub cmdOK_Click()
    Me.MousePointer = vbHourglass
    frmMain.Show
    Me.MousePointer = vbDevault
    Unload Me
End Sub

---

Thank you very much that makes sense.