' Skapa en form som du kallar frmMain. På denna placerar du en commandknapp med name cmdCancel och caption=Avbryt. Placera även en picturebox där du infogar en bild, exempelvis en bmp eller någon annan bild.

Option Explicit

Private Sub cmdCancel_Click()
Unload frmZoom
Unload Me
End Sub

Private Sub Form_Load()
frmZoom.Show
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim retval As Long
retval = StretchBlt(frmZoom.hdc, 0, 0, frmZoom.ScaleWidth, frmZoom.ScaleHeight, Picture1.hdc, x - 10, y - 10, 20, 20, SRCCOPY)
End Sub


' Skapa ytterligare en form som du döper frmZoom. På denna placerar du inga kontroller.

Option Explicit

Private Sub Form_Activate()
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub