Asynch msg box

[pulSSSar]

is there any way (NT/2K) to pop up a message box but continue the application

[Dimins]

You could designate another form to do that, you can even create a generic AsyncMsgBox Function to do it for you if you'd like.

1) Add a new form to your Project
2) Add a Label (named lblMsg for instance)
3) Add an 'OK' button (named cmdOK if you want)
4) Set the label caption and then show that form instead of a MsgBox. (this should be done in a generic AsyncMsgBox function)


just an idea ... hope it helps ...
-Dimins

[Patoooey]

Try this: Form with 2 commandbuttons, a label and a timer set to 500ms.

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As _
Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As _
Long) As Long
 
Private Sub Command1_Click()
MsgBox "The Timer STOPS!"
End Sub
 
Private Sub Command2_Click()
MessageBox Me.hwnd, "Notice the timer does not stop!", "API Call", vbOKOnly + vbExclamation
 
End Sub
 
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

[Dimins]

Patoooey's way is the way to go ...