Public Class Form2

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

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

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

        lblValue1.Text = ad.GetData("VALUE1").ToString()
        lblValue2.Text = ad.GetData("VALUE2").ToString()

    End Sub
End Class