Always Dry Before Period

pass values \u200b\u200bbetween forms reference

by this way we can call a form and get the values \u200b\u200bto continue the process.

function from which you call the new form is on standby until the way back to get focus

Dim F As New buscar_cliente

F. Owner = Me

F. ShowDialog ()

TextBox1.Text = Trim (F.textb)

for the reverse process, send values \u200b\u200bto the form that we use the following call:

form in the place we call an initializer with the number of parameters that we will send the form. in fiery form instantiate the form "form2" by putting the parameters that we will send you (at this moment the values \u200b\u200bobtained form 2).

To prevent the form to which the caller continues with the process, call the ShowDialog and form 2 as close to the way that we find over and destroy the instance created using dispose.

Public Class Form1 Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim frm As New Form2 (1)

frm.ShowDialog()

frm.Dispose()

End Sub

End Class

Public Class Form2

Dim m_cod_cli

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Public Sub New(ByVal cod_cli As Integer)

InitializeComponent()

' Asignamos al campo el valor pasado

m_cod_cli = cod_cli

End Sub

End Class