Как можно укоротить код

Public Class Form1
 
    Dim iRand As Integer
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button17.Tag = 1
        Button18.Tag = 2
        Button19.Tag = 3
        Button20.Tag = 4
        Button21.Tag = 5
        Button22.Tag = 6
        Button23.Tag = 7
        Button24.Tag = 8
        Button25.Tag = 9
        Button26.Tag = 10
        Button27.Tag = 11
        Button28.Tag = 12
        ' Далее Ваш код
    End Sub
 
    Private Sub Button_Click(sender As Object, e As EventArgs) _
    Handles Button18.Click, Button19.Click, Button20.Click, Button21.Click, Button22.Click, _
    Button23.Click, Button24.Click, Button25.Click, Button26.Click, Button27.Click, Button28.Click
        Dim btn As Button = CType(sender, Button) 'ссылка на текущую кнопку
        iRand = CInt(btn.Tag) 'присвоение номера переменной iRand на основе свойства Tag текущей кнопки
        Trainer(iRand)
    End Sub
 
    'Другие методы формы
End Class

Public Class Form1
 
    Private _iRand As Integer
 
    Public Delegate Sub iRandEventHandler(ByVal sender As Object, ByVal e As iRandEventArgs) 'делегат события
 
    Public Event iRandChanged As iRandEventHandler 'объявление события изменения свойства iRand
 
    ''' <summary>
    ''' Свойство iRand
    ''' </summary>
    Property iRand As Integer
        Set(ByVal value As Integer)
            If _iRand <> value Then
                Dim iRandArgs As New iRandEventArgs 'новый экземпляр аргументов для события
                iRandArgs.PreviRand = _iRand
                iRandArgs.NewiRand = value
                _iRand = value
                OniRandChanged(iRandArgs) 'вызываем метод генерирующий событие iRandChanged
            End If
        End Set
        Get
            Return _iRand
        End Get
    End Property
 
    Public Overridable Sub OniRandChanged(ByVal e As iRandEventArgs)
        RaiseEvent iRandChanged(Me, e) 'генерируем событие с передачей в него необходимых аргументов
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Button17.Tag = 1
        Button18.Tag = 2
        Button19.Tag = 3
        Button20.Tag = 4
        Button21.Tag = 5
        Button22.Tag = 6
        Button23.Tag = 7
        Button24.Tag = 8
        Button25.Tag = 9
        Button26.Tag = 10
        Button27.Tag = 11
        Button28.Tag = 12
        ' Далее Ваш код
    End Sub
 
    Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Button18.Click, Button19.Click, Button20.Click, Button21.Click, Button22.Click, _
    Button23.Click, Button24.Click, Button25.Click, Button26.Click, Button27.Click, Button28.Click
        Dim btn As Button = CType(sender, Button) 'ссылка на текущую кнопку
        iRand = CInt(btn.Tag) 'присвоение свойству iRand значения на основе свойства Tag текущей кнопки
    End Sub
 
    'сами создали событие, сами же его и обработаем для наглядности
    Private Sub Form1_iRandChanged(ByVal sender As Object, ByVal e As iRandEventArgs) Handles Me.iRandChanged
        MsgBox("iRand изменилось с: " & e.PreviRand.ToString & " на: " & e.NewiRand.ToString)
        Trainer(iRand) 'а можно ещё так Trainer(e.NewiRand)
    End Sub
 
    'Далее другие методы класса
 
End Class
 
''' <summary>
''' Класс аргументов для события изменения свойства iRand
''' </summary>
''' <remarks></remarks>
Public Class iRandEventArgs
    Inherits EventArgs
    Property PreviRand As Integer 'предыдущее значение
    Property NewiRand As Integer 'текущее значение
End Class