Форма и выдвигающаяся и задвигающаяся по утыканию мыши в правый край экрана

Private Sub Form_Load()
 
    ' ПОЛУЧИТЬ РАЗМЕР ДЕСКТОПА С УЧЁТОМ ТАСКБАРА
    Call SystemParametersInfo(SPI_GETWORKAREA, 0, DesktopArea, 0)
    '
    DesktopRightEdgeTwp = (DesktopArea.Right - DesktopArea.Left) * Screen.TwipsPerPixelX
    DesktopRightEdgePxl = DesktopRightEdgeTwp / 15
    '
    ' УСТАНАВЛИВАЕМ РАЗМЕРЫ И ПОЛОЖЕНИЕ ФОРМЫ НА ДЕСКТОПЕ
    FrmMain.Move DesktopRightEdgeTwp - 45, 0, 6300, 12690 'в Twip-ах
    IsVisible = False
'
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsVisible = False Then
        FrmMain.Move DesktopRightEdgeTwp - 6300, 0, 6300, 12690 'в Twip-ах ’выдвинуть форму
        IsVisible = True
        Hook
    End If
End Sub

' Процедура перехвата сообщений мыши
Private Function LowLevelMouseProc(ByVal uCode As Long, ByVal wParam As Long, lParam As MSLLHOOKSTRUCT) As Long
     
    If uCode = HC_ACTION Then
        Select Case wParam
               Case WM_MOUSEMOVE
                    If IsVisible And lParam.PT.X = DesktopRightEdgePxl  Then
                       UnHook
                       FrmMain.Move DesktopRightEdgeTwp - 45, 0, 6300, 12690 'в Twip-ах
                       IsVisible = False
                    End If
                '
               End Select
    End If
    
End Function