Public Class Informationen
    ' diese Klasse ist der "Zwischenspeicher"
    Public Sub New()
        m_EineInformation = ""
    End Sub
 
    Private m_EineInformation As String
    Public Property EineInformation() As String
        Get
            Return m_EineInformation
        End Get
        Set(ByVal value As String)
            m_EineInformation = value
        End Set
    End Property
 
End Class

    Private m_Informationen As Informationen
    Public Property InformationsKlasse() As Informationen
        Get
            Return m_Informationen
        End Get
        Set(ByVal value As Informationen)
            m_Informationen = value
        End Set
    End Property
 
    ' beim zumachen der Form die Infos in die Klasse übernehmen
    Private Sub Form2_Closed(ByVal sender As Object, ByVal e As EventArgs) _
      Handles MyBase.Closed
        m_Informationen.EineInformation = txt_EineInformation.Text
    End Sub

    Private Sub btn_Irngendwas_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Irngendwas.Click
        Dim Info As New Informationen
 
        Dim frm As New Form2
        frm.InformationsKlasse = Info
        frm.ShowDialog()
        frm.Dispose()
        frm = Nothing
 
        Debug.WriteLine(Info.EineInformation)
    End Sub