Call ShellExecute(0&, _
                            "open", _
                            "C:\WINNT\system32\devmgmt.msc", _
                            0&, _
                            "C:\WINNT\system32\", _
                            vbNormalFocus)

Ohne Mampf, kein Kampf !