Quero fazer um selectall() em todos os textbox do meu form
Para evitar de abrir 1 por 1 em cada evento click de cada textbox colocar o codigo, queria fazer isso em um loop
Mas não estou conseguindo achar os textbox dentro do form
Private Sub txt_Click(sender As Object, e As EventArgs)
Dim txt = DirectCast(sender, TextBox)
txt.SelectAll()
End Sub
Private Sub FRM_CADUSUARIO_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim txt As New TextBox
For Each txt In Me.Controls
AddHandler txt.Click, AddressOf txt_Click
Next
End Sub