Using vb.net WinForms code, find what is blocking an app on Windows

Following are 2 example codes generated by ChatGPT, but both have compile errors. You must get either code to compile and run. Also test it by locking a file with Smart Windows App Blocker (https://securityxploded.com/smart-windows-application-blocker.php#gsc.tab=0) Code 1: Imports [login to view URL] Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [login to view URL] Dim processName As String = "[login to view URL]" ' Replace "[login to view URL]" with the name of your app Dim processList() As Process = [login to view URL](processName) If [login to view URL] > 0 Then Dim process As Process = processList(0) Dim blockingProcesses() As Process = [login to view URL]() If [login to view URL] > 0 Then [login to view URL]("The following processes are blocking " & processName & ": " & [login to view URL](", ", [login to view URL](Function(p) [login to view URL]))) Else [login to view URL](processName & " is not being blocked by any processes.") End If Else [login to view URL](processName & " is not currently running.") End If End Sub End Class Code 2 Imports [login to view URL] Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [login to view URL] Dim processList As Process() = [login to view URL]() Dim blockingProcesses As List(Of Process) = New List(Of Process)() For Each process As Process In processList Try Dim modules As ProcessModuleCollection = [login to view URL] For Each module As ProcessModule In modules If [login to view URL]("your_application_name") Then [login to view URL](process) End If Next Catch ex As Exception End Try Next If [login to view URL] > 0 Then Dim message As String = "The following process(es) are blocking your application:" + [login to view URL] For Each process As Process In blockingProcesses message += [login to view URL] + " (PID: " + [login to view URL]() + ")" + [login to view URL] Next [login to view URL](message) Else [login to view URL]("No processes are blocking your application.") End If End Sub End Class Regards, Leigh