Bonjour, SVP je sais pas pourkoi les tableaux de ce programme ne s'affichent pas ??????????????

voici le program:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Module Module1
 
    Sub Main()
        Dim macoll As New Collection
        Dim i, k, l, m As Integer
        Dim T1(30) As String
        Dim T2(30) As Integer
        Dim T3(30) As Double
        k = 0
        l = 0
        m = 0
        macoll.Add(18)
        macoll.Add(-2)
        macoll.Add("Bonjour")
        macoll.Add("Monsieur")
        macoll.Add("A")
        macoll.Add(2.26)
 
        For Each elem As Object In macoll
            Console.Write(elem)
            Console.WriteLine(" " & elem.GetType.ToString())
            If (elem.GetType.ToString() = "system.String") Then
                T1(k) = CStr(elem)
                k += 1
            End If
            If (elem.GetType.ToString() = "system.Int32") Then
                T2(l) = CInt(elem)
                l += 1
            End If
            If (elem.GetType.ToString() = "system.Double") Then
                T3(m) = CDbl(elem)
                m += 1
            End If
        Next
 
        For i = 0 To k - 1
            Console.WriteLine(T1(i))
        Next
        For i = 0 To l - 1
            Console.WriteLine(T2(i))
        Next
        For i = 0 To m - 1
            Console.WriteLine(T3(i))
        Next
 
        Console.ReadLine()
 
    End Sub
 
End Module