在VB中怎样使IMAGE在屏幕上移动不抖动闪烁？

[sm789]

在VB中怎样使IMAGE在屏幕上移动不抖动闪烁？想用IMAGE做简单动画，可他总闪烁，那位大虾知道解决方法？80分！

[sm789]

shines:能否给我一个例子？Email:[e-mail] 非常感谢！

[shines77]

用BitBlt()和StretthBlt()

Private Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Form的AutoRedraw属性要设为True。

具体例子可来信，[e-mail]。