First of all, what is this

Code:
        Public Shared Function GetPingMs(ByRef host As String)
        Dim ping As New System.Net.NetworkInformation.Ping
        Try
            Return ping.Send(host).RoundtripTime.ToString
        Catch
            Return "No Response"
        End Try
    End Function



    ping_label.Text = GetPingMs("www.google.co.uk") & "ms"
Why are you pinging???????


WMI Code Creator Code modified.

Code:
Imports System.Management
Module Module1
    Public Sub Foo()
        Dim StuffICareAbout As New List(Of String)

        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_VideoController")


            For Each queryObj As ManagementObject In searcher.Get()
                StuffICareAbout.Add(queryObj("AdapterRAM").ToString)
                'Console.WriteLine("AdapterRAM: {0}", queryObj("AdapterRAM"))

                StuffICareAbout.Add(queryObj("Description").ToString)
                'Console.WriteLine("Description: {0}", queryObj("Description"))

                StuffICareAbout.Add(queryObj("DeviceID").ToString)
                'Console.WriteLine("DeviceID: {0}", queryObj("DeviceID"))

                StuffICareAbout.Add(queryObj("DriverDate").ToString)
                'Console.WriteLine("DriverDate: {0}", queryObj("DriverDate"))

                'Console.WriteLine("DriverVersion: {0}", queryObj("DriverVersion"))
                'Console.WriteLine("MaxRefreshRate: {0}", queryObj("MaxRefreshRate"))
                'Console.WriteLine("MinRefreshRate: {0}", queryObj("MinRefreshRate"))
                'Console.WriteLine("Name: {0}", queryObj("Name"))
                'Console.WriteLine("NumberOfColorPlanes: {0}", queryObj("NumberOfColorPlanes"))
                'Console.WriteLine("NumberOfVideoPages: {0}", queryObj("NumberOfVideoPages"))
                'Console.WriteLine("Status: {0}", queryObj("Status"))
                'Console.WriteLine("StatusInfo: {0}", queryObj("StatusInfo"))
                'Console.WriteLine("SystemName: {0}", queryObj("SystemName"))
                'Console.WriteLine("VideoArchitecture: {0}", queryObj("VideoArchitecture"))
                'Console.WriteLine("VideoMemoryType: {0}", queryObj("VideoMemoryType"))
                'Console.WriteLine("VideoMode: {0}", queryObj("VideoMode"))

                StuffICareAbout.Add(queryObj("VideoModeDescription").ToString)
                'Console.WriteLine("VideoModeDescription: {0}", queryObj("VideoModeDescription"))

                StuffICareAbout.Add(queryObj("VideoProcessor").ToString)
                'Console.WriteLine("VideoProcessor: {0}", queryObj("VideoProcessor"))

                Exit For 'if you have 1 video card then exit
            Next
        Catch err As ManagementException
            Stop
        End Try

        Stop
    End Sub
End Module