Option Explicit
 
Private Declare Function ReleaseCapture Lib "user32" () As Long
 
Dim docked As Boolean
Dim links As Single
Const dockingbereich = 20 [color=green]'in Pixel
 
Private Sub Form_Load()
    Timer1.Interval = 1
    Timer2.Interval = 1
    Timer2.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    If Me.Top <= dockingbereich * Screen.TwipsPerPixelY Then
        ReleaseCapture
        links = Me.Left
        docked = True
    End If
End Sub
 
Private Sub Timer2_Timer()
    If docked = True Then
        docked = False
        Me.Move links, 0
        Timer1.Enabled = False
    End If
    If Me.Top >= dockingbereich * Screen.TwipsPerPixelY Then
        Timer1.Enabled = True
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...