Imports System.Security.Principal
 
Public Function IsAdmin() As Boolean
        Dim wp As New WindowsPrincipal(WindowsIdentity.GetCurrent())
        Dim Role As Integer = WindowsBuiltInRole.Administrator
 
        If wp.IsInRole(Role) = True Then
            Return True
        End If
 
        Return False
End Function

VB RULEZ !