如果想将添加的图片文件自动复制到Attachments目录，就像内置的增加按钮一项，可以将代码改为：

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then \'如果文件来自Attachments目录
        piv.AddFile(dlg.FileName.SubString(pth.Length))
    Else \'如果不是
        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
        piv.AddFile(FileSys.GetName(dlg.FileName))
    End If
End If

如果一个窗口只有一个PictureViewer控件，上段代码应该放在哪个事件里？

e.subfolder 中如果含 “\\" 就会出错。