Public Sub Button1_Click()
Dim datos As New String[]
Dim etiquetas As New String[]
etiquetas.Add("Primera:")
etiquetas.Add("Segunda:")
etiquetas.Add("Tercera:")
etiquetas.Add("Cuarta:")
etiquetas.Add("Quinta:")
datos.Add("dato1")
datos.Add("dato2")
datos.Add("dato3")
datos.Add("dato4")
datos.Add("dato5")
datos = FormInput.abrir(etiquetas, datos)
Label1.text = datos[0]
Label2.text = datos[1]
Label3.text = datos[2]
Label4.text = datos[3]
Label5.text = datos[4]
End