Движение картинки по форме - VB

Формулировка задачи:

Привет товарищи! У меня вопрос, как можно организовать движение объекта (картинки) размера 64х64 на форме с ее движением вверх и последующем пропадании за пределами формы. Картинок подразумевается 5 шт., скорость движения которых определяется согласно "Value" значению таймера. Если можно примеры пожалуйста.

Решение задачи: «Движение картинки по форме»

textual
                            Листинг программы 
                        

                            Private Declare Function BitBlt Lib "gdi32" (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
Dim x As Long, y As Long
 
Form1.Cls ' Очищаем форму
BitBlt Form1.hDC, x, y, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, vbSrcCopy
Form1.Refresh ' Обновляем форму
                        