All pastes #243660 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-11-08 19:46 UTC
rendered paste body
    Private Sub CouponHandler()
        currentcouponNbr += 1
        If currentcouponNbr > Me.PizzaDataSet.Coupons.Rows.Count - 1 Then
            currentcouponNbr = 0
        End If
        Dim coupon As PizzaDataSet.CouponsRow
        coupon = PizzaDataSet.Coupons.Rows(currentcouponNbr)
        Me.couponpic.ImageLocation = My.Settings.Folder & coupon.CouponPic
    End Sub