Уменьшение размера активного окна, передвижение вдоль границ экрана

Sub this4()
   MsgBox ("В FullScreen")
   Application.DisplayFullScreen = True
  
    MsgBox ("Из FullScreen в Normal")
    ActiveWindow.WindowState = xlNormal
    MsgBox ("Переместим вправо")
     With ActiveWindow
        .Top = 9.25
        .Left = 915.25
    End With
      MsgBox ("Переместим вниз")
     With ActiveWindow
       .Top = 362.5
        .Left = 914.5
    End With
     MsgBox ("Переместим влево")
      With ActiveWindow
        .Top = 368.5
        .Left = 8.5
    End With
    MsgBox ("Переместим наверх")
      With ActiveWindow
        .Top = 4
        .Left = 1
    End With
    MsgBox ("в Maximized")
     Application.DisplayFullScreen = False
    ActiveWindow.WindowState = xlMaximized
   
End Sub

#If Win64 Then
 Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongLong, ByVal nIDEvent As LongLong, ByVal uElapse As LongLong, ByVal lpTimerFunc As LongPtr) As Long
#Else
 Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
#End If
 
#If Win64 Then
 Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#Else
 Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
#End If
 
Private IdEv As Long
 
Public Property Let fIdEv(dIdEv As String)
 IdEv = dIdEv
End Property
Public Property Get fIdEv() As String
 fIdEv = IdEv
End Property
 
#If Win64 Then
 Public Sub СоздатьТаймер(dИнтервал As Long, dlpTimerFunc As LongLong)
  If IdEv = 0 Then
   IdEv = SetTimer(0&, 0&, dИнтервал, dlpTimerFunc)
  End If
 End Sub
#Else
 Public Sub СоздатьТаймер(dИнтервал As Long, dlpTimerFunc As Long)
  If IdEv = 0 Then
   IdEv = SetTimer(0&, 0&, dИнтервал, dlpTimerFunc)
  End If
 End Sub
#End If
 
Public Sub УдалитьТаймер()
 If IdEv <> 0 Then
  Call KillTimer(0&, IdEv)
  IdEv = 0
 End If
End Sub
 
Private Sub Class_Terminate()
 УдалитьТаймер
End Sub

Public dТаймерИсполненияЗадачи As New TimerClass
Dim dМаркерУдаленияВсехТаймеров As Boolean
 
Public Sub fТаймер_ИсполненияЗадачи_Управление(dДействие$)
 If dДействие$ = "Запуск" Then
  If dМаркерУдаленияВсехТаймеров <> True Then Call dТаймерИсполненияЗадачи.СоздатьТаймер(1000, AddressOf fТаймер_ИсполненияЗадачи)
 ElseIf dДействие$ = "Остановка" Then
  Call dТаймерИсполненияЗадачи.УдалитьТаймер
 End If
End Sub
 
Public Sub fТаймер_ИсполненияЗадачи(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTimer As Long)
 On Error Resume Next
 ' что-то
End Sub
 
Private Function fУстановкаМаркераУдаленияВсехТаймеров()
 dМаркерУдаленияВсехТаймеров = True
End Function
Private Function fСнятиеМаркераУдаленияВсехТаймеров()
 dМаркерУдаленияВсехТаймеров = False
End Function

Declare Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As Long)