Public Sub GetTPM()
        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 TPMActivated As Object = objItem.InvokeMethod("IsActivated", Nothing, Nothing)
            'Dim TPMEnabled As Object = objItem.InvokeMethod("IsEnabled", Nothing, Nothing)
            'Dim TPMOwned As Object = objItem.InvokeMethod("IsOwned", Nothing, Nothing)

            ' TextBox2.Text = TPMActivated.ToString
        Next

    End Sub

Dim bool TPMEnabled = false
Dim uint idontcare = objItem.InvokeMethod("IsEnabled", TPMEnabled)
            

        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

    Public Sub GetTPM()
        Dim scope As ManagementScope = New ManagementScope("\\.\root\CIMV2\Security\MicrosoftTpm")
        Dim query As SelectQuery = New SelectQuery("Win32_Tpm")
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
        Dim mo As ManagementObject
        For Each mo In searcher.Get()
            Dim TPMActivated As ManagementBaseObject = mo.InvokeMethod("IsActivated", Nothing, Nothing)
            Dim TPMEnabled As ManagementBaseObject = mo.InvokeMethod("IsEnabled", Nothing, Nothing)
            Dim TPMOwned As ManagementBaseObject = mo.InvokeMethod("IsOwned", Nothing, Nothing)

            TextBox2.Text = TPMActivated("IsActivated") & " " & TPMEnabled("IsEnabled") & " " & TPMOwned("IsOwned")
        Next
    End Sub

Imports System.Management
Module Module1
    Sub Main()
        Dim scope As ManagementScope = New ManagementScope("\\.\root\CIMV2\Security\MicrosoftTpm")
        Dim query As SelectQuery = New SelectQuery("Win32_Tpm")
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
        Dim mo As ManagementObject
        Dim thing() As Object = {False}
        For Each mo In searcher.Get()
            mo.InvokeMethod("IsActivated", thing)
            Dim TPMActivated As ManagementBaseObject = mo.InvokeMethod("IsActivated", Nothing, Nothing)
            Dim TPMEnabled As ManagementBaseObject = mo.InvokeMethod("IsEnabled", Nothing, Nothing)
            Dim TPMOwned As ManagementBaseObject = mo.InvokeMethod("IsOwned", Nothing, Nothing)
            Console.WriteLine(thing(0).ToString)
            Console.WriteLine(TPMActivated("IsActivated") & " " & TPMEnabled("IsEnabled") & " " & TPMOwned("IsOwned"))
        Next
        Console.ReadKey()
    End Sub

End Module

    Public Sub SetTPM()
        Dim scope As ManagementScope = New ManagementScope("\\.\root\CIMV2\Security\MicrosoftTpm")
        Dim query As SelectQuery = New SelectQuery("Win32_Tpm")
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
        Dim mo As ManagementObject

        For Each mo In searcher.Get()
            Dim inParams As ManagementBaseObject = mo.GetMethodParameters("SetPhysicalPresenceRequest")
            inParams("Request") = 10
            Dim RC1 As ManagementBaseObject = mo.InvokeMethod("SetPhysicalPresenceRequest", inParams, Nothing)
            If RC1("returnValue") <> 0 Then
                MsgBox("Error setPhysicalPresenceRequest")
            Else
                MsgBox("SetPPR exited with code: " & RC1("returnValue"))

                Dim objGetPPT As ManagementBaseObject = mo.InvokeMethod("GetPhysicalPresenceTransition", Nothing, Nothing)
                Dim GetPPT As String = objGetPPT("Transition")
                MsgBox(GetPPT)
                Select Case GetPPT
                    Case 0
                        MsgBox("No user action is needed to perform a TPM physical presence operation.")
                    Case 1
                        MsgBox("To perform a TPM physical presence operation, the user must shutdown the computer and then turn it back on by using the power button. The user must be physically present at the computer to accept or reject the change when prompted by the BIOS.")
                    Case 2
                        MsgBox("To perform a TPM physical presence operation, the user must restart the computer by using a warm reboot. The user must be physically present at the computer to accept or reject the change when prompted by the BIOS.")
                    Case 3
                        MsgBox("The required user action is unknown.")
                End Select

            End If

        Next

    End Sub