Прокомментировать приведенный код

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Enabled = True
        Button1.Enabled = True
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim StartSelect As Integer = 0
        StartSelect = TextBox1.SelectionStart
        If TextBox1.Text.Length >= 2 Then
            If Mid(TextBox1.Text, 1, 1) = "0" Then
                TextBox1.Text = Mid(TextBox1.Text, 2, TextBox1.Text.Length - 1)
                TextBox1.SelectionStart = StartSelect
            End If
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

 Dim StartSelect As Integer = 0

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim StartSelect As Integer = 0 'Сюда будем запоминать тек. символ (т.е. там где указатель где вы набираете текст)
        StartSelect = TextBox1.SelectionStart 'Записываем
        If TextBox1.Text.Length >= 2 Then 'Если в вашем случае цифр в текст боксе >= 2 то
            If Mid(TextBox1.Text, 1, 1) = "0" Then 'Проверяем 1 символ если он равен 0 то
                TextBox1.Text = Mid(TextBox1.Text, 2, TextBox1.Text.Length - 1) 'текст бокс 1 будет равен текст боксу 1 но без 1 символа (2)
                TextBox1.SelectionStart = StartSelect '(возвращаем указатель на место).
            End If
        End If
    End Sub