Public Sub Profile_ProfileAutoSaving(sender As Object, _
 args As ProfileAutoSaveEventArgs)

  If Profile.PaidDueStatus.HasChanged Then
    args.ContinueWithProfileAutoSave = True
  Else
    args.ContinueWithProfileAutoSave = False
  End If
End Sub
