Vb.net mehr Textbox Ereignisse ändern

Question

Wie kann ich das mausehover Ereignis aller

TextBox ändern

Private Sub TextBox1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover 
    ToolTip1.SetToolTip(TextBox1, TextBox1.Text) 
End Sub 
Private Sub TextBox2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.MouseHover 
    ToolTip1.SetToolTip(TextBox2, TextBo2.Text) 
End Sub 
Private Sub TextBox3_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.MouseHover 
    ToolTip1.SetToolTip(TextBox3, TextBox3.Text) 
End Sub 

Wie kann ich Code zu dem all Textbox MouseHover-Ereignisse in dem kürzesten Weg Dank hinzuzufügen.

Answer 1

Hier ist ein Weg, es zu tun:

Private Sub TextBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover, TextBox2.MouseHover, TextBox3.MouseHover 
    Dim tbx = DirectCast(sender, TextBox) 
    ToolTip1.SetToolTip(tbx, tbx.Text) 
End Sub