Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
        Dim Form2 As New Form2
 
        ListBox1.Items.Clear()
 
        If Form2.ShowDialog = DialogResult.OK Then
            ListBox1.Items.Add(Form2.Wert1.ToString)
            ListBox1.Items.Add(Form2.Wert2.ToString)
            ListBox1.Items.Add(Form2.Wert3.ToString)
        End If
    End Sub

    Private mWert1 As Boolean
    Private mWert2 As Boolean
    Private mWert3 As Boolean
 
    Public Property Wert1() As Boolean
        Get
            Return mWert1
        End Get
        Set(ByVal Value As Boolean)
            mWert1 = Value
        End Set
    End Property
 
    Public Property Wert2() As Boolean
        Get
            Return mWert2
        End Get
        Set(ByVal Value As Boolean)
            mWert2 = Value
        End Set
    End Property
 
    Public Property Wert3() As Boolean
        Get
            Return mWert3
        End Get
        Set(ByVal Value As Boolean)
            mWert3 = Value
        End Set
    End Property
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Wert1 = CheckBox1.Checked
        Wert2 = CheckBox2.Checked
        Wert3 = CheckBox3.Checked
        Me.DialogResult = DialogResult.OK
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub