在一个程序中使用过的图片，无意中发现图片没办法删除。以后注意咯。

或者先把图片读入到内存里面。在把内存图片显示出来也不会锁住图了。

Private Sub LoadImage(ByVal fileName As String) Dim FileExt As String FileExt = IO.Path.GetExtension(fileName) ClernImage() If String.IsNullOrEmpty(FileExt) = False Then If CheckValidExt(FileExt) Then If IO.File.Exists(fileName) Then 'imageloacation不会锁住<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a> Me.Picture<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>1.ImageLocation = fileName '=Image.FromFile 会锁住<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>。 '=Image.FromFile(MyFiles(0).ToString).Clone 也会锁住<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a> Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>FilePath.Text = fileName End If End If End If End Sub