Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Code Snippets

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

You cannot dream yourself into a character; you must hammer and forge yourself one.

James Anthony Froude

Always ask yourself if what you are doing today is getting you closer to where you want to be tomorrow.

Paulo Coelho

The most successful people in life are the ones who ask questions. They are always learning. They are always growing. They are always pushing.

Robert T. Kiyosaki

Earning happiness means doing good and working, not speculating and being lazy. Laziness may look inviting, but only work gives you satisfaction.

Anne Frank

People underestimate their capacity for change. There is never a right time to do a difficult thing.

John Porter

To learn something new, you need
to try new things and not be afraid to be wrong.

Roy T. Bennett

Whenever you find yourself doubting how far you can go, just remember how far you have come.

Anonymous

We don't develop courage by being happy every day. We develop it by surviving difficult times and challenging adversity.

Barbara De Angelis