Simple question about Enumerating DD

[ice & fire]

Just a short and simple Question:

You use:

Set dd = dx.DirectDrawCreate("") 'Init with Standard Adapter

to init DirectDraw, right?

I now want to fill a listbox with all the possible Graphics Adapters. (Primary Graphics Device, Voodoo 5 5500 3DfX, .....)

Well, it should then look like:

Set dd = dx.DirectDrawCreate("MyBloodyAdapter")

How do I do that?
Please help me..