Cancella Processi Windows

Public Sub KillProcessi()

If Dir(My.Application.Info.DirectoryPath, FileAttribute.Directory) <> "Debug" Then
            Exit Sub
        End If

Dim PrcProcesso As System.Diagnostics.Process()
        Do
            'Cerco il  prodesso che mi interessa
            PrcProcesso = Process.GetProcessesByName("MSACCESS")
            'se Length>0 significa che il processo � attivo
            If (PrcProcesso.Length > 0) Then
                'chiudo il porcesso
                PrcProcesso(0).Kill()
                'pausa per permettergli di aggiornare la propriet� lenght
                System.Threading.Thread.Sleep(300)
            End If
        Loop While (PrcProcesso.Length > 0)
    End Sub

'**************************************************************************

' cancella tutti i processi di Access aperti per stampe o creazione PDF

' NON cancella il processo di apertura del database corrente...o almeno ...

'**************************************************************************

Public Sub KillProcessi()

If Dir(My.Application.Info.DirectoryPath, FileAttribute.Directory) <> "Debug" Then
Exit Sub
End If

Dim PrcProcesso As System.Diagnostics.Process()
Do
'Cerco il prodesso che mi interessa

PrcProcesso = Process.GetProcessesByName("MSACCESS")
'se Length>0 significa che il processo e' attivo

If (PrcProcesso.Length > 0) Then
'chiudo il porcesso

PrcProcesso(0).Kill()
'pausa per permettergli di aggiornare la proprieta' lenght

System.Threading.Thread.Sleep(300)
End If
Loop While (PrcProcesso.Length > 0)
End Sub