Dim Result = Cmd.Invoke()
For Each E In Result.Where(Function(E_)
        Dim PSO As System.Management.Automation.PSObject = E_
        Dim ELE As System.Diagnostics.EventLogEntry = CObj(PSO)

Function TestPowerShell()
        Using Cmd As PowerShell = PowerShell.Create().AddCommand("get-eventlog")

            'cmd.RunspacePool = pool
            Cmd.AddParameter("-LogName", "System")
            'Cmd.AddParameter("-After", after)

            Dim Result = Cmd.Invoke()
            For Each E In Result.Where(Function(E_)
                                           Dim PSO As System.Management.Automation.PSObject = E_
                                           'Dim ELE As System.Diagnostics.EventLogEntry = CObj(PSO)
                                           Dim T As Type = GetType(System.Diagnostics.EventLogEntry)
                                           Dim ELE As System.Diagnostics.EventLogEntry = CTypeDynamic(PSO, T)
                                           Dim H = CObj(E_).TimeGenerated.Hour
                                           Dim EventID = CObj(E_).EventID
                                           Return Not IsNothing(E_.Properties) And
                                                E_.Properties.Any() And
                                                EventID = 4798 And
                                                0 < H And H < 7
                                       End Function)
                Debug.WriteLine(CObj(E).Message)
            Next
        End Using