Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal _
      e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        Dim c As Control
        For Each c In Me.TabControl1.SelectedTab.Controls
            If TypeOf c Is TextBox Then
                c.Focus()
            End If
        Next
    End Sub

fg viperbone