http://forum.strataframe.net/FindPost20241.aspx
If SecurityBasics.CurrentUser.GetPermission("YourPermissionKey").Action = PermissionAction.Grant '-- grant access to whatever
Else '-- deny access to whatever
End If