VB.Net Tutorial/Statements/Using statement

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