Priavte Sub с несколькими ручными находит Sneder

  For Each button As Button In Me.Controls.OfType(Of Button)
            If sender Is button Then
            
            End If
        Next
Salty Joe