Check For Running Process:-
     ==============================
     
     Private Function isRunningExe(exeName As String) As Boolean
       
       Dim strQuery As String
       strQuery = "SELECT Name FROM Win32_Process WHERE Name='" & exeName & "'"
       isRunningExe = GetObject("winmgmts:").ExecQuery(strQuery).Count
    
    End Function
    
    
    ------

   Private Sub TEST_TIMER_Timer()


        If isRunningExe("calc.exe") Then
            'Sub_form.MAIN_form.textbox.Text = "running..."
            
            
             Else:
          'Sub_form.MAIN_form.textbox.Text = "NOT running..."
          
               End If
  
End Sub