VGPermissionsLoadingEventArgs Class

public class VGPermissionsLoadingEventArgs : EventArgs

Public Class VGPermissionsLoadingEventArgs
	Inherits EventArgs

private void OnPermissionLoading (object sender, VGPermissionsLoadingEventArgs args)
{
    if (e.Roles.Length > 0)
        SelectRoleForm form = new SelectRoleForm();
        form.Roles = e.Roles;
        if (form.ShowDialog() == DialogResult.OK)
        {
            e.Roles = form.Roles;
        }
        else
        {
            e.Status = VGAuthorizationStatus.Failure | VGAuthorizationStatus.ProcessCanceled;
        }
    }
}

Private Sub OnPermissionLoading(ByVal sender As Object, ByVal e As VGPermissionsLoadingEventArgs)
    If e.Roles.Length > 0 Then
        Dim form As New SelectRoleForm
        form.Roles = e.Roles
        If form.ShowDialog() = DialogResult.OK Then
            e.Roles = form.Roles
        Else
            e.Status = VGAuthorizationStatus.Failure Or VGAuthorizationStatus.ProcessCanceled;
        End If
    End If
End Sub