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

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, GO As Rect) As Long 'читает размер и позицию окна
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ' перетаскивание элементов (пара)
Private Declare Function ReleaseCapture Lib "user32" () As Long '....
Const WM_NCLBUTTONDOWN = &HA1: Const HTCAPTION = 2: Const HP = 500 ' высота панели задач в твипах
Dim BarX&, BarY&
Dim K As POINTAPI, GO As Rect, Sdvig%, HagG%, HagV%, VhodG&, VihodG&, VhodV&, VihodV&, Vdvig%, SW&, SH&, FW&, FH&
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then End 'выход через Esc
End Sub
 
Private Sub Form_Load()
SW = Screen.Width: SH = Screen.Height - HP: 'загоняем в переменные КраяЭкрана
FW = Me.Width - 75: FH = Me.Height - 75: 'и габариты Формы (отнимая чтоб высовывалась)
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False: BarY = Y: BarX = X
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button Then
Me.Top = Me.Top + Y - BarY: Me.Left = Me.Left + X - BarX: DoEvents: Label2 = Me.Top + FH + 75: DoEvents
Call ReleaseCapture:
Sdvig = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
 
If Sdvig = 0 Then 'раздача данных и включение таймера (когда явно закончено таскание)
HagG = 0: HagV = 0 ' сначала ОБА нулим (отсекая предыдущие установки)
If Me.Left < 10 Then HagG = -100: VhodG = -FW: VihodG = 0: Vdvig = Vdvig + 1: 'вдвигаем и выдвигаем через разность габаритов Экрана и Формы
If Me.Left > SW - FW Then HagG = 100: VhodG = SW: VihodG = SW - FW: Vdvig = Vdvig + 1:
If Me.Top < 10 Then HagV = -100: VhodV = -FH: VihodV = -50: Vdvig = Vdvig + 1:
If Me.Top > SH - FH Then HagV = 100: VhodV = SH - 70: VihodV = SH - FH - 50: Vdvig = Vdvig + 1:
Timer1.Enabled = IIf(Vdvig > 0, True, False)
End If
End If
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True: 'страховка...
End Sub
 
Private Sub Timer1_Timer()
GetCursorPos K: If K.Y > (Screen.Height - HP - 5) / Screen.TwipsPerPixelY Then K.Y = (Screen.Height - HP - 5) / Screen.TwipsPerPixelY 'страховка от "дребезга" при опускании курсора под ПанельЗадач
GetWindowRect Form1.hwnd, GO
 
If Vdvig > 0 Then 'сначала полный Вдвиг окна при поднесении к краю
If Abs(Form1.Left - VhodG) > 100 Then Form1.Move Form1.Left + HagG
If Abs(Form1.Top - VhodV) > 100 Then Form1.Top = Form1.Top + HagV
If Abs(Form1.Left - VhodG) < 100 Then Vdvig = Vdvig - 1:
If Abs(Form1.Top - VhodV) < 100 Then Vdvig = Vdvig - 1:
Exit Sub
End If ' дальше движения по наведению курсора
 
If K.X <= GO.Right And K.X >= GO.Left And K.Y <= GO.Bottom And K.Y >= GO.Top Then
   If Abs(Form1.Left - VihodG) > 100 Then Form1.Move Form1.Left - HagG
   If Abs(Form1.Top - VihodV) > 100 Then Form1.Top = Form1.Top - HagV:
End If
If K.X >= GO.Right Or K.X <= GO.Left Or K.Y >= GO.Bottom Or K.Y <= GO.Top Then
   If Abs(Form1.Left - VhodG) > 100 Then Form1.Move Form1.Left + HagG
   If Abs(Form1.Top - VhodV) > 100 Then Form1.Top = Form1.Top + HagV:
End If
End Sub