Private Sub ShowSecurityDialog()
     Dim showPermissionFlag As Boolean = False
     Dim showRestrictionSetsFlag As Boolean = False
     If SecurityBasics.CurrentUser.IsAdministrator Then
          showPermissionFlag = True
          showRestrictionSetsFlag = True
     End If
     '-- Create the form and show it
     Using loDialog As New SecurityDialog(showPermissionFlag, showRestrictionSetsFlag)
          loDialog.ViewSecurityKey = "UsersForm"
          loDialog.ShowDialog()
     End Using
End Sub