How the use FAQ 4e (Ping in VB)

[sanderk]

Hi all.
I ran into problems while checking out faq4e (ping in vb). I have the feeling I'm doing something I shouldn't or didn't do something I should.

Well. I just copy/pasted the code into the general section of a form, added a commandbutton 2 ping the localhost.
But when i run it I get instantly the following box:

"Cannot define a Public user-defined type within a private object module"

So i moved ICMP_ECHO_REPLY to a module. After that I receive the following error:

"User-defined type not defined"

So i moved ICMP_OPTIONS used in ICMP_ECHO_REPLY also to the module.

Then I received this error:

"Only public user defined types defined in public object modules can be used as parameters or return types for public procedures of class modules or as fields of public user defined types"

From there the help button gives "topic not found"

So.. please help me out..
(What im trying to do is to get al active computers from a sertain domain.. I'm currently user this a link (

http://support.microsoft.com/support/kb/articles/q194/1/15.asp)

and it works fine but all computers are in the list, not only active computers..)

Thanks in advance..