Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes


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