Public Function ReadPID(ByVal pHandle As Long) As Long
        Dim deinHandle As IntPtr = Process.GetCurrentProcess().Handle
        Dim p As Process, bResult As Boolean
        For Each p In Process.GetProcesses()
            Try
                bResult = (p.Handle = pHandle)
                If bResult Then
                    MsgBox(p.Id)
                End If
                Exit For
            Catch e As Exception
                Debug.Print(e.Message)
            End Try
        Next
    End Function