Here is code from MSDN-Library April 2003 which I tried to implement to my class but there was some error that I don't know how to solve it. In Privete Overloads Sub Dispose(ByVal disposing Boolean), the code call component.Dispose() method but the VS said that 'System.ComponentModel.Component.Protected Overrridable Sub Dispose(disposing As Boolean)' is not accessible in this context because it is 'Protected'. I don't know this code is from .NET Framework 1.0 and not yet update for 1.1 or not. If anyone know how can I correct this error, please let me know.

Thank you,
Teeravee Sirinapasawasdee

Imports System
Imports System.ComponentModel

Public Class DisposeExample
Public Class MyResource
Implements IDisposable

Private handle As IntPtr
Private component As component
Private disposed As Boolean = False

Public Sub New(ByVal handle As IntPtr)
Me.handle = handle
End Sub

Public Overloads Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub

Private Overloads Sub Dispose(ByVal disposing As Boolean)
If Not Me.disposed Then
If disposing Then
component.Dispose() <-- There was error here!
End If
CloseHandle(handle)
handle = IntPtr.Zero
End If
disposed = True
End Sub

<System.Runtime.InteropServices.DllImport("Kernel32")> _
Private Shared Function CloseHandle(ByVal handle As IntPtr) As [Boolean]
End Function

Protected Overrides Sub Finalize()
Dispose(False)
MyBase.Finalize()
End Sub
End Class
End Class

Hi Sirinapasawasdee,
U have not initialized the Component object,
Plz intialize the object in the constructor as
Public Sub New(ByVal handle As IntPtr)
Me.handle = handle
component = New Component()
End Sub
and try running the program.Actually the object is being
tried to use with out initializing it
Bye
>-----Original Message-----
>Here is code from MSDN-Library April 2003 which I tried
to implement to my class but there was some error that I
don't know how to solve it. In Privete Overloads Sub
Dispose(ByVal disposing Boolean), the code call
component.Dispose() method but the VS said
that 'System.ComponentModel.Component.Protected
Overrridable Sub Dispose(disposing As Boolean)' is not
accessible in this context because it is 'Protected'. I
don't know this code is from .NET Framework 1.0 and not
yet update for 1.1 or not. If anyone know how can I
correct this error, please let me know.
>
>Thank you,
>Teeravee Sirinapasawasdee
>
>Imports System
>Imports System.ComponentModel
>
>Public Class DisposeExample
> Public Class MyResource
> Implements IDisposable
>
> Private handle As IntPtr
> Private component As component
> Private disposed As Boolean = False
>
> Public Sub New(ByVal handle As IntPtr)
> Me.handle = handle
> End Sub
>
> Public Overloads Sub Dispose() Implements
IDisposable.Dispose
> Dispose(True)
> GC.SuppressFinalize(Me)
> End Sub
>
> Private Overloads Sub Dispose(ByVal disposing As
Boolean)
> If Not Me.disposed Then
> If disposing Then
> component.Dispose() <-- There was
error here!
> End If
> CloseHandle(handle)
> handle = IntPtr.Zero
> End If
> disposed = True
> End Sub
>
> <System.Runtime.InteropServices.DllImport
("Kernel32")> _
> Private Shared Function CloseHandle(ByVal handle
As IntPtr) As [Boolean]
> End Function
>
> Protected Overrides Sub Finalize()
> Dispose(False)
> MyBase.Finalize()
> End Sub
> End Class
>End Class