Как правильно делать экранную лупу?

scrHwnd = GetDesktopWindow
scrDC = GetDC(scrHwnd)

hRgn = CreateEllipticRgn(0, 0, w, h)

hRgn = CreateRectRgn(0, 0, w, h)

Ellipse ps.hdc, 1, 1, w - 2, h - 2

Rectangle ps.hdc, 1, 1, w - 2, h - 2

Public Sub MouseWheel(ByVal MouseKeys As Long, ByVal Rotation As Long, ByVal Xpos As Long, ByVal Ypos As Long)
    '
    If MouseKeys = 0 Then
        If Rotation < 0 Then ' увеличиваем
            If Me.Width + ZoomStepTwips > 1920 Then Exit Sub
            Me.Width = Me.Width + ZoomStepTwips
            Me.Height = Me.Height + ZoomStepTwips
            Me.Top = Me.Top - ZoomStepTwips / 2
            Me.Left = Me.Left - ZoomStepTwips / 2
        End If
        '
        If Rotation > 0 Then ' уменьшаем
            If Me.Width - ZoomStepTwips < 480 Then Exit Sub
            Me.Width = Me.Width - ZoomStepTwips
            Me.Height = Me.Height - ZoomStepTwips
            Me.Top = Me.Top + ZoomStepTwips / 2
            Me.Left = Me.Left + ZoomStepTwips / 2
        End If
    End If
    '
    lblXPos = Me.Width
    '
End Sub

'Как работает модуль:
'1.При старте программы сделать вызов процедуры Hook для элементов, указанных хэндлом
'2.При завершении программы вызвать процедуру UnHook для элементов, указанных хэндлом

Private Sub Form_Load()
    Hook (Me.hwnd) 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    UnHook (Me.hwnd)
End Sub

Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo xErr
Select Case uMsg
Case WM_MOUSEWHEEL
   'hCurСtl = GetHwndCtl
   'If hCurСtl <> 0 Then
      Select Case wParam
      Case -7864320, -23592960, -15728640
         Call SendMessage(hCurСtl, WM_VSCROLL, &H1, Empty) 'Скролл вниз
         Call SendMessage(hCurСtl, WM_VSCROLL, &H1, Empty) 'Скролл вниз
         Call SendMessage(hCurСtl, WM_VSCROLL, &H1, Empty) 'Скролл вниз
         'frmMain.stBar.Panels(1).Text = "Вниз"
      Case 7864320, 23592960, 15728640
         Call SendMessage(hCurСtl, WM_VSCROLL, &H0, Empty) 'Скролл вверх
         Call SendMessage(hCurСtl, WM_VSCROLL, &H0, Empty) 'Скролл вверх
         Call SendMessage(hCurСtl, WM_VSCROLL, &H0, Empty) 'Скролл вверх
         'frmMain.stBar.Panels(1).Text = "Вверх"
      End Select
   'End If
'Case WM_MOUSEMOVE
'   hCurСtl = hwnd
Case Else
   hCurСtl = hwnd
   WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
End Select
xErr:
End Function