Bonjour à tous !!

Voilà mon petit soucis, je travaille sur visual basic express 2010, j'ai 6 labels ou arrivent un résultat dans chaque label (label42, label45, label48, label51, label54 et label57)
Mon but est de récuprérer la valeur mini dans un textbox.., n'ayant pas encore trouvé de fonction pour cela il m'a paru logique d'écrire le code ci dessous mais je n'obtiens toujours pas la valeur mini... quelqu'un aurai une autre idée d'aborder la chose ??
Merci

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
If Val(Label42.Text) < Val(Label45.Text) Then
            TextBox2.Text = Val(Label42.Text)
        End If
 
        If Val(Label42.Text) > Val(Label45.Text) Then
            TextBox2.Text = Val(Label45.Text)
        End If
 
        If Val(Label42.Text) < Val(Label48.Text) Then
            TextBox2.Text = Val(Label42.Text)
        End If
 
        If Val(Label42.Text) > Val(Label48.Text) Then
            TextBox2.Text = Val(Label48.Text)
        End If
 
        If Val(Label42.Text) < Val(Label51.Text) Then
            TextBox2.Text = Val(Label42.Text)
        End If
 
        If Val(Label42.Text) > Val(Label51.Text) Then
            TextBox2.Text = Val(Label51.Text)
        End If
 
        If Val(Label42.Text) < Val(Label54.Text) Then
            TextBox2.Text = Val(Label42.Text)
        End If
 
        If Val(Label42.Text) > Val(Label54.Text) Then
            TextBox2.Text = Val(Label54.Text)
        End If
 
        If Val(Label42.Text) < Val(Label57.Text) Then
            TextBox2.Text = Val(Label42.Text)
        End If
 
        If Val(Label42.Text) > Val(Label57.Text) Then
            TextBox2.Text = Val(Label57.Text)
        End If
 
        If Val(Label45.Text) < Val(Label48.Text) Then
            TextBox2.Text = Val(Label45.Text)
        End If
 
        If Val(Label45.Text) > Val(Label48.Text) Then
            TextBox2.Text = Val(Label48.Text)
        End If
 
        If Val(Label45.Text) < Val(Label51.Text) Then
            TextBox2.Text = Val(Label45.Text)
        End If
 
        If Val(Label45.Text) > Val(Label51.Text) Then
            TextBox2.Text = Val(Label51.Text)
        End If
 
        If Val(Label45.Text) < Val(Label54.Text) Then
            TextBox2.Text = Val(Label45.Text)
        End If
 
        If Val(Label45.Text) > Val(Label54.Text) Then
            TextBox2.Text = Val(Label54.Text)
        End If
 
        If Val(Label45.Text) < Val(Label57.Text) Then
            TextBox2.Text = Val(Label45.Text)
        End If
 
        If Val(Label45.Text) < Val(Label57.Text) Then
            TextBox2.Text = Val(Label57.Text)
        End If
 
        If Val(Label48.Text) < Val(Label51.Text) Then
            TextBox2.Text = Val(Label48.Text)
        End If
 
        If Val(Label48.Text) > Val(Label51.Text) Then
            TextBox2.Text = Val(Label51.Text)
        End If
 
        If Val(Label48.Text) < Val(Label54.Text) Then
            TextBox2.Text = Val(Label48.Text)
        End If
 
        If Val(Label48.Text) > Val(Label54.Text) Then
            TextBox2.Text = Val(Label54.Text)
        End If
 
        If Val(Label48.Text) < Val(Label57.Text) Then
            TextBox2.Text = Val(Label48.Text)
        End If
 
        If Val(Label48.Text) > Val(Label57.Text) Then
            TextBox2.Text = Val(Label57.Text)
        End If
 
        If Val(Label51.Text) < Val(Label54.Text) Then
            TextBox2.Text = Val(Label51.Text)
        End If
 
        If Val(Label51.Text) > Val(Label54.Text) Then
            TextBox2.Text = Val(Label54.Text)
        End If
 
        If Val(Label51.Text) < Val(Label57.Text) Then
            TextBox2.Text = Val(Label51.Text)
        End If
 
        If Val(Label51.Text) > Val(Label57.Text) Then
            TextBox2.Text = Val(Label57.Text)
        End If
 
        If Val(Label54.Text) < Val(Label57.Text) Then
            TextBox2.Text = Val(Label54.Text)
        End If
 
        If Val(Label54.Text) > Val(Label57.Text) Then
            TextBox2.Text = Val(Label57.Text)
        End If