Private Sub VoidARPayment()
Dim oVoid As CVoidPaymentHeader
Dim oBag As IBBPropBag
Set oVoid = New CVoidPaymentHeader
Set oBag = oVoid
oBag.Property("POSTDATE", "01/01/2009") = "01/01/2009"
Set oBag = Nothing
oVoid.VoidPaymentHeader 175, False
Set oVoid = Nothing
Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.