display adaptor - visual basic 6

Does anyone have any idea how to get the display adaptor information using visual basic 6?

in vbscript, it can be done using WMI

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_DisplayControllerConfiguration")
For Each objItem in colItems
WScript.Echo "Name: " & objItem.Name
Next

i believe you can call WMI from VB6 too.