#Status Message Box in VB
Status Box I have a form in which I use a Label with a fixed-single
BorderStyle as a status msg box. What I need to be able to do for a given
event is to change the contents of this label (ForeColor & Caption) and
change the mouse pointer to an hourglass. I then want to pause for 2
seconds and then restore the msg box and mouse pointer back to the normal
mode. What I am getting with the following code is the mouse pointer
changes for the correct interval, however the Label contents are unchanged.
Dim fTime As Double
fTime# = Now + .00002
Do
Form1.Label1.ForeColor = &HFF&
Form1.Label1.Caption = "ERROR"
Screen.MousePointer = 11
Loop Until (fTime# < Now)
Form1.Label1.ForeColor = &HFF00&
Form1.Label1.Caption = "ON-LINE"
Screen.MousePointer = 0
Any help would be greatly appreciated….Thanks
There are 2 Replies.