Повторить событие клик для разных текстбоксов

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как повторить событие клик (vb vs2010) для разных TextBox-ов (TBox_d1, TBox_d2,...TBox_d100) одним кодом, но не прописывая каждый код отдельно:

Private Sub TBox_d1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBox_d1.MouseClick
TBox_d1.Clear()
TBox_d1.Text = "пример"
End Sub

Private Sub TBox_d2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBox_d2.MouseClick
TBox_d2.Clear()
TBox_d2.Text = "пример"
End Sub

Private Sub TBox_d100_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBox_d100.MouseClick
TBox_d100.Clear()
TBox_d100.Text = "пример"
End Sub

Спасибо!

[Alex11223]

Подписать их все на один и тот же обработчик события, а не на разные, и использовать sender (кастовать его из Object в TextBox)

[ольгаг]

Спасибо, попробую.