Gruss Caddy

Public Class DeineKlasse
Private bool As Boolean = False
Private int As Integer = 0
 
Public Property MyBool() As Boolean
  Get
    Return bool
  End Get
  Set(ByVal value As Boolean)
    bool = value
    If bool = false Then
      If int <> 0 Then
        int = 0
      End If
    End If
  End Set
End Property
 
Public Property MyInt() As Integer
  Get
    Return int
  End Get
  Set(ByVal value As Integer)
    If Bool Then
      int = value
    Else
      If value <> 0 Then
        int = 0
      Else
        int = value
      End If
    End If
  End Set
End Property
End Class

Gruss Caddy