Torna al Thread
Public Sub EseguiTest(ByVal Automatico As Boolean)
Dim m_dlgTest2 As New dlgTest(Automatico)
m_dlgTest2.ShowDialog()
m_dlgTest2.cmdOk1.PerformClick() ' qui provo il tuo consiglio, ma non ottengo nulla, cioè successivamente non viene rivelato come ok premuto
If m_dlgTest2.ok1 Then
For i = 0 To index - 1
Call Tws1.placeOrderEx(contatore, m_dlgTest2.arr_contracts(i), m_dlgTest2.arr_orders(i)) '*** invia l'ordine "i"
Next
End If
End Sub