Fortran callable QM functions

[win]

Thank you for your reminder, Macro vbs call qm1 Can run successfully 
 but I have two questions
 
Question 1: After Generated exe file is executed, a QmSendMessage.tlb file will be generated in the dll directory. How to disable it?

 Question 2: I need to run QM first, how to automatically run QM when calling function

______________________________________________________________________________


How written the code in the Macro vbs call qm2 (??? s1 ???) 

Question 1: The code of the QM function in the VBS code, how to run it using QM when calling

Question 2: If the code of the QM function is in a txt file, how to use QM to run it when called





Macro vbs call qm1

Code:

Copy      Help

RegisterNetComComponent "$qm$\QmSendMessage.dll" 2|4

str vbs=
;set q = CreateObject("QmSendMessage.QMSM")
;q.Run "Q ^ M ^Func1^", true

VbsExec vbs

Function Func1

Code:

Copy      Help

mes "Hello, I am in QM"

Macro vbs call qm2

Code:

Copy      Help

RegisterNetComComponent "$qm$\QmSendMessage.dll" 2|4

str vbs=
;set q = CreateObject("QmSendMessage.QMSM")
;Dim s1 = "mes ""Hello, I am from Vbs"""
;q.Run "Q ^ M ^??? s1 ???^", true

VbsExec vbs