Форма и внутрение объекты? - VB

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

Разрабатываю код который уводит форму за верхний край монитора оставляя несколько пикселей чтоб при наведении мышки показать форму. И столкнулся с таким глюком когда форма где то до середины уходит вверх за рамку экрана объекты внутри замедляют перемещение, в итоге низ формы начинает наезжать на объекты (кнопки картинки и тд). С чем это связано и как с этим бороться?

Решение задачи: «Форма и внутрение объекты?»

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

                            Private Declare Function SetWindowPos Lib "User32" (ByVal Hwnd As Long, ByVal hWndInsertAlter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim Xx As Long
Dim Yy As Long
Dim u As Boolean
Dim Xa As Long
Dim Ya As Long
Private Sub Form_Load()
    Xa = 100
    Ya = 150
    Xx = 500
    Yy = 500
    u = SetWindowPos(Form1.Hwnd, 0, Ya, Xa, Xx, Yy, ByVal &H20)
End Sub
 
Private Sub Timer2_Timer()
    Dim KorForm As TRect
    GetWindowRect Form1.Hwnd, KorForm
    u = SetWindowPos(Form1.Hwnd, 0, Ya, Xa, Xx, Yy, ByVal &H20)
    Xa = Xa - 1
    Yy = Yy - 1
End Sub
                        