Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Windows and Controls Code Examples

Is this application already started



Is this application already started

Public sub CheckSoftware(x as Form)
    
    dim SaveTitle$

    If App.PrevInstance Then
        SaveTitle$ = App.Title
        MsgBox "This program is already in the air...."
        App.Title = ""
        x.Caption = ""
        AppActivate SaveTitle$
        SendKeys "%{ENTER}", True
        End
    end If

End Sub

'use as in the first form_load event
Call CheckSoftware(form1)

Remember that not getting what you want is sometimes a wonderful stroke of luck.

Dalai Lama

Weak desires bring weak results, just as a small fire makes a small amount of heat.

Napoleon Hill

Challenges are what make life interesting and overcoming them is what makes life meaningful.

Joshua J. Marine

Accept yourself, love yourself, and keep moving forward. If you want to fly, you have to give up what weighs you down.

Roy T. Bennett

If you want to achieve greatness, stop asking for permission.

Anonymous

Life's challenges are not supposed to paralyze you, they are supposed to help you discover who you are.

Bernice Johnson Reagon

Through every dark night, there is a bright day after that. So no matter how hard it get, stick your chest out, keep your head up, and handle it.

Tupac Shakur

You need to spend time crawling alone through shadows to truly appreciate what it is to stand in the sun.

Shaun Hick