Public Class Form1

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End
    End Sub

    Private Sub btnForm2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForm2.Click

        Dim ad As System.AppDomain = System.AppDomain.CurrentDomain

        ad.SetData("VALUE1", txtValue1.Text)
        ad.SetData("VALUE2", txtValue2.Text)

        Form2.Show()
    End Sub
End Class