大致这样
If e.Sender.SelectedPage.Text = "page2" Then If user.Name = "开发者" Then For Each c As Object In e.Sender.SelectedPage.Children c.Enabled = False Next Else For Each c As Object In e.Sender.SelectedPage.Children c.Enabled = True Next End IfEnd If