主题：[求助]如何关闭ftp管理器？

自写了打开本地文件上传图片的代码，上传文件成功并写入列后，这ftp管理器总是自动开着，如何才能用代码关掉它或者不让它启动出现呢？

可是上传完成后它确实出现了啊？

'自定义上传图片-------------------------------------------------------------------
If e.DataCol.name ="图片"
    Dim dlg As New OpenFileDialog
    dlg.MultiSelect = True
    dlg.Filter= "图片文件|*.jpg|图片文件|*.jpeg" '设置筛选器
    If dlg.ShowDialog = DialogResult.OK Then
       
        Dim  ftp1 As  New  FtpClient
        ' If TryConnectHost("192.0.0.0") Then   '判断内网FTP地址是否通
        'ftp1.Host="192.0.0.0"
        ' Else                                    '否则使用外网地址
        ftp1.host ="220.220.220.220"
        'End If
        ftp1.Account =  "user"               '用户名
        ftp1.Password =  "1111111"
        ftp1.RootDir = "/localuser/photo/"     'ftp根目录
        If ftp1.direxists( ftp1.RootDir & e.DataRow("项目编号")) =False Then    '如果不存在该项目编号的目录
            ftp1.makedir(ftp1.rootdir & e.DataRow("项目编号"))                 '在根目录下建立该目录
        End If
        For Each fl As String In dlg.FileNames
            Dim Randstr As String =Rand.NextString(6)
            If ftp1.Upload(fl, ftp1.RootDir & e.DataRow("项目编号") & "/" & e.DataRow("档案编号")& e.DataRow("权利人") & Randstr & ".jpg",True) = True Then
                Dim pname As String
                pname = ftp1.RootDir & e.DataRow("项目编号") & "/" & e.DataRow("档案编号")& e.DataRow("权利人") & Randstr & ".jpg"
                If e.DataRow.Isnull("图片") Then
                    e.DataRow("图片") =  pname
                Else
                    e.DataRow("图片")  = e.DataRow("图片") & vbcrlf & pname
                End If
                'Messagebox.show(fl & "-上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Else
                Messagebox.show( fl & "-上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
        Next

    End If
   
End If

反正是在OpenFileDialog后，不选择图片点取消 或选择图片上传成功后都会出现以下窗口：

 

此主题相关图片如下：捕获.png