Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      ShowSecurityDialog()
End Sub

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