Public Sub EseguiTest(ByVal Automatico As Boolean)

Dim m_dlgTest2 As New dlgTest(Automatico)
Dim Result = m_dlgTest2 .ShowDialog

If Result = System.Windows.Forms.DialogResult.Yes Then
            MsgBox("ho cliccato su yes ed eseguo il ciclo")
           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
        Else
           MsgBox("ho cliccato su cancel")
       End If
End If
End Sub