Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Code Snippets

Display how many seconds windows has been running



Display how many seconds windows has been running

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Form_Load()
Dim lngReturn As Long
lngReturn = GetTickCount()
MsgBox ("Windows has been running for " & (lngReturn / 1000) & " seconds.")
End Sub

Setting goals is the first step into turning the invisible into the visible.

Tony Robbins

The only way to deal with an unfree world is to become so absolutely free that your very existence is an act of rebellion.

Albert Camus

Instead of worrying about what you cannot control, shift your energy to what you can create.

Roy T. Bennett

If you are not willing to learn, no one can help you. If you are determined to learn, no one can stop you.

Zig Ziglar

Education is our passport to the future, for tomorrow belongs to the people who prepare for it today.

Malcolm X

The only way to do great work is to love what you do. If you haven't found it yet, keep looking, and don't settle.

Steve Jobs

Whenever you see a successful person, you only see the public glories, never the private sacrifices to reach them.

Vaibhav Shah

Everything you've ever wanted is on the other side of fear.

George Addair