Option Explicit

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA As Long =  48 

Private Sub Timer1_Timer()
    Dim DeskTopWorkArea As RECT
    Dim lTwipsToDockX As Long
    Dim lTwipsToDockY As Long
    
    
    
    Timer1.Enabled = False
    
    
    lTwipsToDockX =  25  * Screen.TwipsPerPixelX
    lTwipsToDockY =  25  * Screen.TwipsPerPixelY
    
    SystemParametersInfo SPI_GETWORKAREA,  0 , DeskTopWorkArea,  0 
    
    
    With DeskTopWorkArea
        .Left = .Left * Screen.TwipsPerPixelX
        .Top = .Top * Screen.TwipsPerPixelY
        .Right = .Right * Screen.TwipsPerPixelX
        .Bottom = .Bottom * Screen.TwipsPerPixelY
    
    
        If Me.Left - .Left <= lTwipsToDockX Then Me.Left = .Left
        If Me.Top - .Top <= lTwipsToDockY Then Me.Top = .Top
        If .Right - Me.Left - Me.Width <= lTwipsToDockX Then Me.Left = .Right - Me.Width
        If .Bottom - Me.Top - Me.Height <= lTwipsToDockY Then Me.Top = .Bottom - Me.Height
    End With
    
    
    Timer1.Enabled = True
End Sub