Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal Handle As _
      Int32) As Int32
.
.
.
.
 
    Private Function KillProcess(ByVal File As String) As Boolean
        Try
            Dim FileStream As New IO.FileStream(File, IO.FileMode.Open)
            Dim Handle = FileStream.SafeFileHandle.DangerousGetHandle
 
            If CloseHandle(CInt(Handle)) <> 0 Then
                Return True
            End If
        Catch ex As Exception
            Return False
        End Try
        Return False
    End Function