Run Application

با سلام حضور تمامی دوستان
چگونه میتوان فهمید که برنامه در حافظه فعال است
اینطوری که مثلا اگر دوباره برنامه را اجرا کنیم پیغام بده که برنامه در حافظه مقیم است
امیدوارم متوجه منظورم شده باشید

'*================================================  =====*

'*Checks to see if the current application is already  *

'*running. To use just call the sub. If the application*

'*is already running, it will end the current          *

'*application.                                         *

'*                                                     *

'*************************************************  ******

Sub AppRunning()

    Dim sMSG As String

    If App.PrevInstance Then

    sMSG = App.EXEName & " already running! "

       MsgBox sMSG, 4112

    End

    End If

End Sub

آقای نصیری سلام
با تشکر فراوان از پاسخهای مفیدتون
راستی وحید جان اگه حالا وقت داری یه سری به ؛سه سوال؛
قسمت سوال دوم هم بزن .
باز هم متشکرم