Actualmente, estoy trabajando en una solicitud de migración, donde necesitamos cambiar el marco de trabajo de 3.5 a 4.6.2. Aquí el problema es que después de cambiar el marco a continuación, el método no muestra el resultado esperado.My.User.IsInRole() siempre está volviendo falso.

If My.User.IsInRole(nlRole.InnerText) Then
   hasRole = True
   Exit For
End If

Además, probé con el siguiente código:

Imports System.Security.Principal

Class PrincipalCheck
    Shared Function UserInRole(role As String) As Boolean
        Dim currPrincipal As New WindowsPrincipal(New WindowsIdentity(Environment.UserName))
        Return currPrincipal.IsInRole(role)
    End Function
End Class

Public Sub StartCheck()
   MsgBox(PrincipalCheck.UserInRole("MyDomain\MyGroup"))
End Sub

Pero sin suerte. ¿Puede alguien ayudarme con el problema anterior?

Si espera más información de mi parte, hágamelo saber.