Public Function UserHasLevels() As String()
		Dim Result As New System.Collections.Generic.List(Of String)
		For Each Value As Integer In System.Enum.GetValues(GetType( _
  Security.Principal.WindowsBuiltInRole))
			If CType(My.User.CurrentPrincipal, _
Security.Principal.WindowsPrincipal).IsInRole( _ 
				CType(value, Security.Principal.WindowsBuiltInRole)) Then
				Result.Add (CType(value, Security.Principal.WindowsBuiltInRole).ToString() )
			End If
	    Next	
	    Return Result.ToArray()
	End Function