Guteb Abend nochmal,

also ich habs jetzt geschafft...

Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Function Hardware() As String

        Dim Devices As Object = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_VideoController")

        Dim HardwareName As String

        For Each AdaptList In Devices
            HardwareName = AdaptList.Description
        Next

        Return HardwareName

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(Hardware)


    End Sub

Funktioniert einwandfrei...

Jetzt nur meien Frage kann man das irgendwie so machen das ich mehrere Komponente da einbinden kann...

Jetzt ist ja nur die Grafikkarte da... Wie kann ich zum Beispiel das Motherboard noch hinzufügen ohne den ganzenn sourcecode nochmal zu schreiben?