COMPTEUR DE LETTRES ALPHABÉTIQUES

Public Class Form1
    Private Sub Calculer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculer.Click
        Dim i As Integer : Dim j As Integer : Dim ii As Integer : Dim t(0 To 26) As Integer
        Dim chartest As Char : Dim asc1 As Integer : Dim asc2 As Integer : Dim chr As Char
        Dim longtexte As Integer = RichTextBox1.TextLength
        For i = 0 To longtexte - 1
            For j = 1 To 26
                chartest = Convert.ToChar(64 + j)
                chr = RichTextBox1.Text.Chars(i)
                asc1 = Convert.ToInt32(chr)
                If asc1 >= 65 And asc1 <= 91 And chr = chartest Then
                    asc2 = Convert.ToInt32(chr) - 64
                    ii = asc2
                    t(ii) = t(ii) + 1
                    Me.Controls("label" & asc2).Text = Convert.ToString(t(ii))
                End If
            Next j
        Next i
        For i = 1 To 26
            If Me.Controls("label" & i).Text <> "0" Then
                Me.Controls("label" & i + 26).ForeColor = Color.DarkOrange
                Me.Controls("label" & i).ForeColor = Color.DarkOrange
            End If
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        RichTextBox1.Clear()
        For i = 1 To 26
            If Me.Controls("label" & i).Text <> "0" Then
                Me.Controls("label" & i + 26).ForeColor = Color.Black
                Me.Controls("label" & i).ForeColor = Color.Black
                Me.Controls("label" & i).Text = "0"
            End If
        Next
    End Sub
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        RichTextBox1.Text = RichTextBox1.Text.ToUpper
        RichTextBox1.Select(RichTextBox1.Text.Length, 0)
    End Sub
End Class