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