Using statement : Using statement « Statements « VB.Net Tutorial

1. VB.Net Tutorial
2. Statements
3. Using statement

public class Test
   public Shared Sub Main
        Using _
          emp1 As New Employee("Ann", "Archer"), _
          emp2 As New Employee("Bob", "Beagle")
            Dim i As Integer
        End Using


   End Sub
End class


Public Class Employee
    Implements IDisposable

    Public Sub New(ByVal first_name As String, ByVal last_name As String)

    End Sub

    Private disposedValue As Boolean = False

    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                Console.WriteLine("TODO: free unmanaged resources when explicitly called")
            End If

            Console.WriteLine("TODO: free shared unmanaged resources")
        End If
        Me.disposedValue = True
    End Sub

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

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

TODO: free unmanaged resources when explicitly called
TODO: free shared unmanaged resources
TODO: free unmanaged resources when explicitly called
TODO: free shared unmanaged resources