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