Keskustelu: Ohjelmointikysymykset: VB6: Miks ei toimi?

Mul on tämmönen koodin pätkä, Visual Basicissa. BitBlt on määritelty moduulissa, mutta ei jostain syystä silti toimi.

Private Sub timer1_Timer()
Randomize Timer
x = Int(Rnd * 60)
y = Int(Rnd * 60)
BitBlt Picture1.hDC, x, y, 32, 32, Picture3.hDC, 0, 0, SRCCOPY
x = newx
y = newy
End Sub

Tulee vaan semmonen musta laatikko. Timer1:n interval on 1, ja pictureboxit on näkyviä, ja niitten muuttujienkin pitäisi olla kohdallaan. Missä vika?

Laita SRCCOPY:n tilalle vbSrcCopy.