inputboxmultiple

' Gambas class file

Private datos As New String[]

Public Function abrir(etiquetas As String[], variable As String[]) As String[]

  Label1.text = etiquetas[0]
  Label2.text = etiquetas[1]
  Label3.text = etiquetas[2]
  Label4.text = etiquetas[3]
  Label5.text = etiquetas[4]

  TextBox1.text = variable[0]
  TextBox2.text = variable[1]
  TextBox3.text = variable[2]
  TextBox4.text = variable[3]
  TextBox5.text = variable[4]
  Me.Showmodal()

  Return datos

End

Public Sub Form_Open()

End

Public Sub ButtonCancelar_Click()

  Me.Close()

End

Public Sub ButtonAceptar_Click()

  datos.Add(TextBox1.Text)
  datos.Add(TextBox2.Text)
  datos.Add(TextBox3.Text)
  datos.Add(TextBox4.Text)
  datos.Add(TextBox5.Text)
  Me.Close()

End