Создание мини-игры и первые проблемы с движением объектов - VB

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

Доброго всем времени суток, решили с другом создать мини-игрушку, но вот возникли несколько проблем, а именно мерцание объекта при движении! Впринципе можно заменить Image на PictureBox, но там картинки, это тарелки, движущиеся по столу, и соответственно там нужен прозрачный фон! Вчера целую ночь искал в интернете, нифига путнего не нашел... Нет ну есть примеры с bitиде или как то так, но блин вообще нифига не понятно там. Кто сможет, пожалуйста помогите решить проблему!!! О том что такое 2я буферизация примерно знаю, но блин я api только начал учить и честно сказать пока ничего не понимаю особо.... Заранее благодарен за помощь!!!

Решение задачи: «Создание мини-игры и первые проблемы с движением объектов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
 
 
Private Sub Form_Load()
Dim Ret As Long
Dim myback As Long
myback = Me.BackColor
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, myback, 50, 0
End Sub