Is there a way to flash a short message using a form for a time far shorter
than a second?
Thanks
Bill Kuunders

Hi Bill,

Bill Kuunders wrote:
Is there a way to flash a short message using a form for a time far
shorter than a second?

Yes - you can use the GetTickCount API function to do something like that:

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub demo()
Dim lCount As Long

frmMessageBox.Show vbModeless
lCount = GetTickCount

Do While GetTickCount < (lCount + 500)
DoEvents
Loop

Unload frmMessageBox
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]

Thank You very much Jake.


"Jake Marx" wrote in message
...
Hi Bill,

Bill Kuunders wrote:
Is there a way to flash a short message using a form for a time far
shorter than a second?

Yes - you can use the GetTickCount API function to do something like that:

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub demo()
Dim lCount As Long

frmMessageBox.Show vbModeless
lCount = GetTickCount

Do While GetTickCount < (lCount + 500)
DoEvents
Loop

Unload frmMessageBox
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]