[Débutant] remplir des textbox a partir d'un tableau

bnj, je suis un amateur de vb
je viens de crée un tableau pour calculer et vérifier un chiffre pour chaque mois
et je veux afficher les résultats dans des textbox a partir du tableau déjà remplis
la seul solution que j'ai trouvé c'est de les affichés un par un, mais c'est trop long
est ce quil ya une solution SVP
voici mon code qui marche mais long

Code:

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
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim GH(11, 1) As String
        GH(0, 0) = h01moy
        GH(1, 0) = h02moy
        GH(2, 0) = h03moy
        GH(3, 0) = h04moy
        GH(4, 0) = h05moy
        GH(5, 0) = h06moy
        GH(6, 0) = h07moy
        GH(7, 0) = h08moy
        GH(8, 0) = h09moy
        GH(9, 0) = h10moy
        GH(10, 0) = h11moy
        GH(11, 0) = h12moy
        ' verification de GH
        For i As Integer = 0 To 11
            If GH(i, 0) <= 30 Then GH(i, 1) = 1
            If GH(i, 0) > 30 And GH(i, 0) <= 50 Then GH(i, 1) = 2
            If GH(i, 0) > 50 And GH(i, 0) < 70 Then GH(i, 1) = 3
            If GH(i, 0) >= 70 Then GH(i, 1) = 4
        Next
        GHjan.Text = GH(0, 1)
        GHfeb.Text = GH(1, 1)
        GHmar.Text = GH(2, 1)
        GHapr.Text = GH(3, 1)
        GHmay.Text = GH(4, 1)
        GHjun.Text = GH(5, 1)
        GHjul.Text = GH(6, 1)
        GHaug.Text = GH(7, 1)
        GHsep.Text = GH(8, 1)
        GHoct.Text = GH(9, 1)
        GHnov.Text = GH(10, 1)
        GHdec.Text = GH(11, 1)
    End Sub