When I run the programs using MSQMUI (BOC), I have to close MIMS. Why?

[Guest_imported]

I want to recreate the functionality of a MINT using objects MSQMUI (Mincom Connector).

I’m writing a Visual Basic program :

' Create Objects
Set gobjMIMSx = New MIMSXServer
Set gobjMIMSmui = New MSQMUILib.MimsApplication

' Login MSQmui
gobjMIMSmui.Silent = True
If gobjMIMSmui.Session.Login(gobjMIMSx.MIMSAPIHandle, True) = False Then GoTo ErrorHandle

If gobjMIMSmui.ExecuteMSO("MSO345", "", "", "N", "&quot = False Then GoTo ErrorHandle

'2. Modificar el Equipment Reference
gobjMIMSmui.MSO.Fields("REFERENCE_NO1I&quot.Value = EquipRef

'Asignar el Component Code
gobjMIMSmui.MSO.Fields("COMP_CODE1I&quot.Value = Comp_Code

'Enviar tecla <Enter>
gobjMIMSmui.MSO.Commands(&quot;OK&quot.Execute


The program is executed correctly

but, i have a questions:

1. When I run the programs, I have to close MIMS.

Are there any way to execute the programs without closing MIMS ?

Do you have any example?

Do you know the solutions for this problem?

 

[Guest_imported]

Is ready. Don´t worry

 

[dgaston]

I use the 0,False parameters for the Session to allow an exisitng connection to be used or to start a new one if one does not. ie

Set msqmui = New MSQMUILib.MimsApplication
ActiveSheet.Range(&quot;H7&quot = &quot;Connecting to MIMS ...&quot;
msqmui.Silent = True' Run MSQMUI Invisibly
msqmui.Session.Login 1, False 'Silent Login