If Webpartmanager1.Personalization.Scope = PersonalizationScope.User _
   AndAlso Webpartmanager1.Personalization.CanEnterSharedScope Then
                
      Webpartmanager1.Personalization.ToggleScope()
End If
