ImageListViewItemのImage.DisposeをDisposeからFinalizeへ変更

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@861 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/ImageListViewItem.vb b/Tween/ImageListViewItem.vb
index 257688e..ade2c43 100644 (file)
--- a/Tween/ImageListViewItem.vb
+++ b/Tween/ImageListViewItem.vb
@@ -1,6 +1,5 @@
 Public Class ImageListViewItem
     Inherits ListViewItem
-    Implements IDisposable
 
     Public Sub New(ByVal items() As String, ByVal imageKey As String)
         MyBase.New(items, imageKey)
@@ -8,8 +7,11 @@
 
     Public Property Image As Image
 
-    Public Sub Dispose() Implements IDisposable.Dispose
-        Me.Image.Dispose()
-        Me.Image = Nothing
+    Protected Overrides Sub Finalize()
+        If Me.Image IsNot Nothing Then
+            Me.Image.Dispose()
+            Me.Image = Nothing
+        End If
+        MyBase.Finalize()
     End Sub
 End Class