frmMain.clsKasse1(Index).PTest = True

    Private Test As Boolean
 
    Public Property PTest() As Boolean
        Get
            Return Test
        End Get
        Set(ByVal value As Boolean)
            Test= value
        End Set
    End Property

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)