OpenProcess

Try
            Dim processes() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName(«RF»)
            If processes.Length > 0 Then

            Else
                My.Computer.FileSystem.DeleteFile(«C:ProgramDataRF.exe»)
                End
            End If
        Catch ex As Exception

        End Try