Процесс не может получить доступ к файлу

Option Strict On
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text
Imports System.Net.Mail
Imports Shell32
Public Class Form1
 
    Sub ZIP()
        Dim sh As New Shell32.Shell()
        Dim input As Shell32.Folder = sh.NameSpace("C:\Users\User\Desktop\Новая папка (6)")
        Dim output As Shell32.Folder = sh.NameSpace("C:\Users\User\Desktop\win1.zip")
        output.CopyHere(input.Items, 4)
    End Sub
 
    Sub mail()
        Dim EMail As New MailMessage
        Dim Smtp As SmtpClient
        Smtp = New SmtpClient("smtp.yandex.ru")
        Smtp.Port = 587
        Smtp.Credentials = New Net.NetworkCredential("elfinator@yandex.ru", "********")
        EMail.From = New MailAddress("elfinator@yandex.ru", "Тема сообщения")
        EMail.To.Add(New MailAddress("elfinnik@yandex.ru"))
        EMail.Body = "Тело сообщения"
        EMail.Subject = "Письмо"
        EMail.Attachments.Add(New System.Net.Mail.Attachment("C:\Users\User\Desktop\win1.zip"))
        EMail.Attachments.Add(New System.Net.Mail.Attachment("C:\Users\User\Desktop\win2.zip"))
        Try
            Smtp.Send(EMail)
            MsgBox("Ваше сообщение отправлено. Спасибо!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Ваше сообщение не было отправлено. Пожалуйста, повторите попытку", MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Sub NewZIP()
        Dim strimwrit As New StreamWriter("C:\Users\User\Desktop/win1.zip", True)
        Dim strimwrit1 As New StreamWriter("C:\Users\User\Desktop/win2.zip", True)
 
 
 
    End Sub
    Sub email()
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Call NewZIP()
        Call ZIP()
        Call mail()
 
    End Sub
End Class