каждый раз одно событие

Question

каждый раз, когда кто-то нажимает, как я могу это сделать

Answer 1

Удалите все ваши события от Button0 до Button9 Click и замените их следующими:

Private Sub Buttons_Click(sender As Object, e As RoutedEventArgs) Handles Button0.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
    Shuffle()
End Sub

Answer 2

У меня есть кое-что, что вы можете попробовать.Я не использую тест IsNullOrEmpty, так как вы уже сбрасываете их заранее, поэтому не нужно.

Помещение Buttons в небольшой массив упростит вещи.

Вы можете попробовать это: (протестировано с Option Strict On)

Private Sub ButtonShuffle_Click(sender As Object, e As RoutedEventArgs) Handles ButtonShuffle.Click

    Dim rnd As New Random
    Dim numberList As List(Of Integer) = Enumerable.Range(0, 10).OrderBy(Function(i) rnd.Next).ToList

    Dim buttons As Button() = {Button0, Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9}
    Dim buttonCurrent As Integer = 0

    For Each num As Integer In numberList
        buttons(buttonCurrent).Content = num.ToString
        buttonCurrent += 1
    Next

End Sub