Good morning
I modified the macro for multiple passes
I understand very little of VB I would like to know if it can work
Is there anyone who can help me control her?
can it work?
I thank those who can help me

original macro

REM Context 10002
repeats = Question ("Quante ripetizioni?")
depth    = Question ("Profondità massima della prima passata?")
perpass = Question ("Abbassamento asse Z per ogni passata?")

SetOEMDro  80, depth
SetOEMDro  78, repeats
SetOEMDro  79, perpass
DoOEMButton 218
Message "Premere Esegui lavorazione / Alt+R per iniziare" 


modified macro


REM Context 10002
Speak (" passate   multiple") 'Avviso Vocale
REM Context 10002

   Begin Dialog TextBoxSample 300,200,155,120," PASSATE MULTIPLE"
      OKButton 25,88,40,14
      CancelButton 80,88,40,14
        GroupBox 8,5,140,110,"PASSATE   MULTIPLE   IMPOSTAZIONI",.GroupBox1
      TextBox 15,22,40,12,.TextBox1
      Text 60,24,80,8,"NUMERO PASSATE"
      TextBox 15,42,40,12,.TextBox2
      Text 60,44,80,8,"DISCESA 1 PASSATA"
      TextBox 15,62,40,12,.TextBox3
      Text 60,64,80,8,"DISCESA PER PASSATA"
   End Dialog
   Dim Dlg1 As TextBoxSample
   
   Dialog Dlg1
   repeats = CDbl(Dlg1.TextBox1)
   depth = CDbl(Dlg1.TextBox2)
   perpass = CDbl(Dlg1.TextBox3)

   SetOEMDro  80, depth
   SetOEMDro  78, repeats
   SetOEMDro  79, perpass
   DoOEMButton 218
   Message "Premere il pulsante Lavorazione (Alt+R) per iniziare"