PUBLIC SUB GridView1_DblClick()
DIM MioIngrediente AS TextBox
DIM ButtonEsci AS Button

  MioForm = NEW Form
  WITH MioForm
    .Title = "MODIFICA"
    .H = 200
    .W = 800
    .Center
  END WITH
  
  MioIngrediente = NEW TextBox(MioForm)
  WITH MioIngrediente
    .h = 10
    .w = 230
    .x = 10
    .y = 10
    .Enabled = FALSE
    .Text = GridView1[GridView1.Row, 1].Text
  END WITH 
  
  ButtonEsci = NEW Button(MioForm) AS "pulsante1"
  WITH ButtonEsci
    .h = 20
    .W = 130
    .x = MioForm.Width - ButtonEsci.Width - 10
    .y = MioForm.Height - ButtonEsci.Height - 10
    .Text = "ESCI"
    .Enabled = TRUE
  END WITH 
  
  MioForm.Show
  MioIngrediente.Show
  ButtonEsci.Show  
    
END

PUBLIC SUB pulsante1_Click()
  
  MioForm.Close
  
END