[VB.NET] Intercettare evento e passare il controllo relativo alla funzione

[pacixone]

Salve, ho diversi controlli che devo accettare solo numeri:

-----
Private Sub TextBox_SoloNumeri(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar) Then
ElseIf e.KeyChar = "." And Me.TextBox1.Text.IndexOf(".") = -1 Then
Else
e.Handled = True
End If
End Sub
-----

Adesso come posso passare alla funzione il nome del controllo? (...Me.TextBox1.Text.IndexOf...)

[MItaly]

Private Sub TextBox_SoloNumeri(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress 'eccetera
If Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar) Then
ElseIf e.KeyChar = "." And DirectCast(sender, TextBox).Text.IndexOf(".") = -1 Then
Else
e.Handled = True
End If
End Sub