Visual Basic Programming Code Examples Visual Basic > Code Snippets Code Examples Check for admin rights for XP and 2000 Check for admin rights for XP and 2000 Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long Private Sub Form_Load() Dim blnAdmin As Boolean blnAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) end sub