View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jake Marx[_3_] Jake Marx[_3_] is offline
external usenet poster
 
Posts: 860
Default show form for very short time

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]