Pastable version of Remove the Evil GOTO

<pre class='prettyprint' language='asp_vb.net'>Private Function fIsAppRunning() As Boolean
            'Looks to see if Lotus Notes is open

Dim lngH As Integer
            Dim lngX, lngTmp As Integer
            Const WM_USER As Short = 1024
            On Error GoTo fIsAppRunning_Err
            fIsAppRunning = False

lngH = FindWindow(&quot;NOTES&quot;, vbNullString)

If lngH &lt;&gt; 0 Then
                SendMessage(lngH, WM_USER + 18, 0, 0)
                lngX = IsIconic(lngH)
                If lngX &lt;&gt; 0 Then
                    lngTmp = ShowWindow(lngH, 1)
                End If

lngTmp = SetForegroundWindow(lngH)

fIsAppRunning = True
            End If

fIsAppRunning_Exit:
            Exit Function

fIsAppRunning_Err:
            fIsAppRunning = False
            Resume fIsAppRunning_Exit
        End Function</pre>
<a href="http://www.refactormycode.com/codes/506-remove-the-evil-goto" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Remove the Evil GOTO