VB.Net Tutorial/Statements/Using statement

Using statement

<source lang="vbnet">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</source>

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