AddHandler Textbox1.TextChanged, AddressOf ValidateInputs
AddHandler Textbox2.TextChanged, AddressOf ValidateInputs
AddHandler Textbox3.TextChanged, AddressOf ValidateInputs
Private Sub ValidateInputs(ByVal Sender As Object, ByVal e as EventArgs)
Button1.Enabled = Not (Textbox1.Text = String.Empty OrElse Textbox2.Text = String.Empty OrElse Textbox3.Text = String.Empty)
End Sub
И, что еще лучше, если все эти элементы управления имеют одного и того же родителя и являются единственными текстовыми полями в родительском элементе (скажем, все они вложены в групповой ящик), вы можете сделать это примерно так:
For Each t As TextBox In GroupBox1.Controls.OfType(Of Textbox)
AddHandler t.TextChanged, AddressOf ValidateInputs
Next t
Private Sub ValidateInputs(ByVal Sender As Object, ByVal e as EventArgs)
Button1.Enabled = Not GropuBox1.Controls.OfType(Of Textbox).Any(Function(t) t.Text = String.Empty)
End Sub