Public Class frmChiamante

    Private Sub btnChiamaLaForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChiamaLaForm.Click

        frmFormConListbox.ShowDialog()
        TextBox1.Text = frmFormConListbox.lstLista.SelectedItem.ToString.Split(Chr(9))(0)
        TextBox2.Text = frmFormConListbox.lstLista.SelectedItem.ToString.Split(Chr(9))(1)

    End Sub
End Class