Basta adicionar os elementos que terão os eventos tratados (handled) pelo método separando por vírgulas:
Private Sub nct_focus(sender As Object, e As EventArgs) Handles text1.GotFocus, text2.GotFocus, text2.GotFocus.... etc....
sender.SelectAll()
End Sub
Agora se quiser que automaticamente todos os TextBoxes do seu form tenham o evento associados ao seu método, você pode pesquisar todos os elementos dentro do seu form, na collection Controls
, verificar se não do tipo TextBox
e associar o evento.
Pode fazer isso ao carregar o form, algo assim:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
' Para cada controle, verificar o tipo e associar ao evento
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then
Dim textBox As TextBox = CType(ctrl, TextBox)
AddHandler textBox.GotFocus, AddressOf nct_focus
End If
Next
End Sub