message

[smileyface5]

I have a process that runs and takes a long time.
I would like to display a message and change the cursor while the user waits.
Wht kind of message box or other feature could i use to do this and how would i fit it in with my code?
This is the code for the sub procedure:

Public Sub ExecCmd(cmdline$)
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
Dim ReturnValue

' Initialize the STARTUPINFO structure:
start.dwFlags = STARTF_USESHOWWINDOW
start.cb = Len(start)

start.wShowWindow = 6
' Start the shelled application:
ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _
NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)

' Wait for the shelled application to finish:
Do
ReturnValue = WaitForSingleObject(proc.hProcess, 0)
DoEvents
Loop Until ReturnValue <> 258

ReturnValue = CloseHandle(proc.hProcess)
End Sub

[RobDog888]

You dont want to use a msgbox since that will halt the execution of your code until the msgbox
is clicked and dismissed. Try creating a small form to use as a message with no buttons.

'...
'...
' Wait for the shelled application to finish: 
frmMessage.Show
MousePointer = vbHourGlass
Do 
    ReturnValue = WaitForSingleObject(proc.hProcess, 0) 
    DoEvents 
Loop Until ReturnValue <> 258
frmMessage.Hide
Unload frmMessage
MousePointer = vbNormal
'...
'...

[smileyface5]

ive done this and the message comes up however it stays there and nothing happens.i tried putting a msgbox directly after it and it doesnt pop up so the code obviously stops there.
any ideas how i could fix this?

[RobDog888]

It stops on what line of code?

[smileyface5]

frmMessage.Show

'I put a message box here and it didnt display so it is not running past the line before this

MousePointer = vbHourGlass
Do
ReturnValue = WaitForSingleObject(proc.hProcess, 0)
DoEvents
Loop Until ReturnValue <> 258
frmMessage.Hide
Unload frmMessage
MousePointer = vbNormal

[RobDog888]

Try ...

frmMessage.Show vbModeless

[smileyface5]

perfect thanks a million!!