thanks for all those who tried to help


===================
Peter T <peter_t@discussions wrote in message
...
Maybe we have the wrong version for our OS, possibly from some poor
installer.

I installed the latest version WSHOM.OCX 5.6.0.8825 for W98


http://www.microsoft.com/downloads/d...8F6-249C-4A72-
BFCF-FC6AF26DC390&displaylang=en&Hash=TLJCWD

No difference, still doesn't work (ie clear the popup after SecondsToWait)

Peter T


The routine appears to work for everyone else but, like you, not in my
W98
/
XL2K. The msgbox pops up but does not disappear after SecondsToWait,
only
if
I click out.

I set a ref to "Windows Script Host Object Model" WSHOM.OCX

I get the following intellisense after typing "res = SH.Popup("

Popup(Text as String,[SecondsToWait],[Title],[Type]) As Long

So it looks like it should work, strange it doesn't. If I don't send
aType
(button), the only way to close the msgbox is with Ctrl-Alt-Del. My
WSHOM.OCX is version 5.6.0.6626. I think v5.6 is current, not v1.0.

I don't recall ever having updated my WSHOM.OCX. There's one version for
W98
/ ME / NT and another for all later versions of Windows. Maybe we have
the
wrong version for our OS, possibly from some poor installer. I'll try
and
look into it later.

Regards,
Peter T

"R.VENKATARAMAN" wrote in message
...
In one of my serches in googles group I found pearson's sub on having
a
transient message box

quote
Dim SH As IWshRuntimeLibrary.WshShell
Dim Res As Long
Set SH = New IWshRuntimeLibrary.WshShell
Res = SH.Popup(Text:="Click Me", secondstowait:=5, _
Title:="Hello, World", Type:=vbOKOnly)
unquote

as suggested i have referenced in vbeditor tools references

<windows scripting host object model(ver 1.0)

and then run the above sub
But I get an error message and the sub stops at the line

<Dim SH As IWshRuntimeLibrary.WshShell

the error mesage is
<user defined type not defind

where I am doing the mistake

mine excel 2000
windows 98SE

request help
thanks regards.