输出ArrayList，Array，Hashtable的函数

    ''' <summary>
    ''' Consoleで内容を出力
    ''' </summary>
    ''' <param name="myObjs">ArrayList</param>
    ''' <remarks>ツール用</remarks>
    Public Shared Sub Print(ByVal myObjs As ArrayList)

        Dim i As Integer
        For Each tmpObj As Object In myObjs
            Console.WriteLine("   [{0}] : {1}", i, tmpObj.ToString)
            i = i + 1
        Next
        Console.WriteLine()

    End Sub

    ''' <summary>
    ''' Consoleで内容を出力
    ''' </summary>
    ''' <param name="myObjs">Array</param>
    ''' <remarks>ツール用</remarks>
    Public Shared Sub Print(ByVal myObjs As Array)

        Dim i As Integer
        For Each tmpObj As Object In myObjs
            Console.WriteLine("   [{0}] : {1}", i, tmpObj.ToString)
            i = i + 1
        Next
        Console.WriteLine()

    End Sub
    ''' <summary>
    ''' Consoleで内容を出力
    ''' </summary>
    ''' <param name="myObjs">Hashtable</param>
    ''' <remarks>ツール用</remarks>
    Public Shared Sub Print(ByVal myObjs As Hashtable)

        Dim i As Integer
        Dim enumerator As IDictionaryEnumerator = myObjs.GetEnumerator

        While enumerator.MoveNext
            Console.WriteLine("   [{0}] : key[{1}],value[{2}]", i, enumerator.Key.ToString, enumerator.Value.ToString)
            i = i + 1
        End While

        Console.WriteLine()

    End Sub