stripewidth = 40
Stripes = Picture1.ScaleWidth / stripewidth
P2 = Picture1.ScaleHeight
For i = 0 To (Stripes - 1) / 10 Step 1
For m = 0 To stripewidth / 2
r% = BitBlt(Picture2.hDC, P1 + m + stripewidth / 2 + i * stripewidth, 0, 2, P2, Picture1.hDC, P1 + m + stripewidth / 2 + i * stripewidth, 0, &HCC0020)
r% = BitBlt(Picture2.hDC, P1 - m + stripewidth / 2 + i * stripewidth, 0, 2, P2, Picture1.hDC, P1 - m + stripewidth / 2 + i * stripewidth, 0, &HCC0020)
For j = 1 To 10000
Next j
Next m
For j = 1 To 50000
Next j
Next i |
