Public Function UserIsAdmin() As Boolean
    Dim oUser As Security.Principal.WindowsPrincipal = My.User.CurrentPrincipal
        If oUser.IsInRole(Security.Principal.WindowsBuiltInRole.Administrator) _
          = False Then Return False
        Return True
    End Function

     Public Function UserIsAdmin() As Boolean
        Return (CType(My.User.CurrentPrincipal, _
          Security.Principal.WindowsPrincipal).IsInRole( _ 
        Security.Principal.WindowsBuiltInRole.Administrator))
    End Function