Public Class Form1
    Dim mGeschossNr As Integer
    Dim mPlanpunkte As New List(Of Point)
    Dim Haus1 As Haus
 
Private Sub btSavePoints_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btSavePoints.Click
        Haus1.SpeicherePlanPunkte(mGeschossNr, mPlanpunkte)
 
End Sub
 
Private Sub radio123_CheckedChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles radio1.Click, Radio2.CheckedChanged, _
  Radio3.CheckedChanged
 
        If radio1.Checked Then
            mGeschossNr = 0
        ElseIf Radio2.Checked Then
            mGeschossNr = 1
        ElseIf Radio3.Checked Then
            mGeschossNr = 2
        End If
 
        'vorerst die beiden Membervariablen löschen (werden anschl. eh wieder 
        ' gesetzt)
        mPlanpunkte.Clear() 'dieses CLEAR setzt mir die Haus1.Planpunkte( 
        ' mGeschossNr) auch auf 0!!? Warum?
        mPlanBild = Nothing
 
        If Haus1.Planpunkte(mGeschossNr) IsNot Nothing Then
            mPlanpunkte = Haus1.Planpunkte(mGeschossNr)
        End If
 
        If Haus1.PlanImage(mGeschossNr) IsNot Nothing Then
            mPlanBild = Haus1.PlanImage(mGeschossNr)
        End If
 
End Sub

Public Class Haus
 
    Dim mPlanpunkt(2) As List(Of Point)
    Dim mPlanImage(2) As Bitmap
    Dim mGeschosshoehe As Integer
    Dim mGeschossNummer As Integer
    Public Sub New()
        'mPlanpunkte(2) = New List(Of Point)
 
    End Sub
    ReadOnly Property Planpunkte(ByVal Geschoss As Integer) As List(Of Point)
        Get
            Return mPlanpunkt(Geschoss)
        End Get
    End Property
    ReadOnly Property PlanImage(ByVal Geschoss As Integer) As Bitmap
        Get
            Return mPlanImage(Geschoss)
        End Get
    End Property
    Public Sub SpeicherePlanPunkte(ByVal Geschoss As Integer, ByVal Punkte As _
      List(Of Point))
        mPlanpunkt(Geschoss) = Punkte
    End Sub
    Public Sub SpeicherePlanImage(ByVal Geschoss As Integer, ByVal Plan As _
      Bitmap)
        mPlanImage(Geschoss) = Plan
    End Sub
 
 
End Class