主题：[求助]窗口中PictureViewer的使用 4月11号 16楼有新问题，例子在9楼

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif;*.png" '设置筛选器

dlg.MultiSelect = True

If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim ftp1 As new  ftpclient

    ftp1.host=""

    ftp1.port = ""

    ftp1.Account = ""

    ftp1.password = ""   

    Dim tb As WinForm.TextBox = e.Form.Controls("TextBox1")

    Dim dr As DataRow

    dr = DataTables("上下游公司名录").SQLFind("公司 = '" & tb.Value & "'")

    If dr IsNot Nothing Then '如果找到的话

        Dim ls = dr.Lines("附件")

        For Each f As String In dlg.FileNames

            Dim file = "/上下游公司名录附件/" & dr("公司") & "/" & filesys.GetName(f)

            If ftp1.DirExists("/上下游公司名录附件/" & dr("公司")) = False Then

                ftp1.MakeDir("/上下游公司名录附件/" & dr("公司"))

            End If

            Dim Result As DialogResult

            If ftp1.FileExists(file) Then

                Result = MessageBox.Show("文件已经存在,是否覆盖?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

            End If

            If result = Nothing OrElse result = DialogResult.Yes Then

                If  ftp1.Upload(f,file,True) = True Then

                    If ls.contains(file) = False Then

                        ls.add(file)

                    End If

                Else

                    MessageBox.Show( f & "上传失败" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)

                End If

            End If

        Next

        dr.lines("附件") = ls

        dr.Save

        ftp1.Close

    End If

End If

上传附件是成功的，我远程到服务器看过，但如何让这个PictureViewer立即能看到上传的图片呢？