Public Property Let RemindTime(ByVal newTime As String)
lblRemindTime.Caption = newTime
End Property
Public Property Get RemindTime() As String
RemindTime = lblRemindTime.Caption
End Property
Public Property Let RemindMemo(ByVal newMemo As String)
txtRemindMemo.Text = newMemo
End Property
Public Property Get RemindMemo() As String
RemindMemo = txtRemindMemo.Text
End Property
Public Property Get DeleteMe() As Boolean
‘ правильное преобразование Value в Boolean
If chkDeleteMe.Value = 0 Then
        DeleteMe = False
    Else
        DeleteMe = True
    End If
    ‘ ТАК писать можно, НО НЕ НУЖНО:
    ‘ newDelete = chkDeleteMe.Value
End Property
Public Property Let DeleteMe(ByVal newDelete As Boolean)
‘ правильное преобразование Boolea в Value
    If newDelete Then
        chkDeleteMe.Value = 1
    Else
        chkDeleteMe.Value = 0
    End If
    ‘ ТАК ПИСАТЬ НЕЛЬЗЯ:
    ‘ chkDeleteMe.Value = newDelete
End Property
Private Sub txtRemindMemo_Change()
PropertyChanged “RemindMemo”
End Sub<
 
Private Sub chkDeleteMe_Click()
PropertyChanged “DeleteMe”
End Sub