Code:
        Dim colItems As New ManagementObjectSearcher("\\.\ROOT\CIMV2\Security\MicrosoftTpm", "SELECT * FROM Win32_ProviderEx Where Name=""Win32_TpmProvider""")
        For Each objItem As ManagementObject In colItems.Get()
            Dim TPMEnabled As Object
            Dim result = objItem.InvokeMethod("IsEnabled", TPMEnabled)

            TextBox2.Text = TPMEnabled.ToString
        Next


System.Management.ManagementException: This method is not implemented in any class
at System.Management.ManagementException.ThrowWithExtendedInfo(ManagementStatus errorCode)
at System.Management.ManagementObject.GetMethodParameters(String methodName, ManagementBaseObject& inParameters, IWbemClassObjectFreeThreaded& inParametersClass, IWbemClassObjectFreeThreaded& outParametersClass)
at System.Management.ManagementObject.InvokeMethod(String methodName, Object[] args)
at BitlockerManager.Form1.GetTPM() in c:\users\wheelerc\documents\visual studio 2013\Projects\BitlockerManager\BitlockerManager\Form1.vb:line 87
_________________________
How to ask questions the smart way <-----------> Before you ask