Type DEVMODE
dmDeviceName As String *  32 
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String *  32 
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Type POINTAPI
x As Long
y As Long
End Type

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) _
As Long 

Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" _
(ByVal lpDriverName As String, ByVal lpDeviceName As String, _
ByVal lpOutput As String, lpInitData As DEVMODE) As Long

Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

код формы:

Dim hDisp As Long
Dim dM As DEVMODE
Dim curPos As POINTAPI

Private Sub Form_Load()
hDisp = CreateDC("DISPLAY",  0 ,  0 , dM)
SetWindowPos Form1.hwnd, - 1 , Form1.Left, Form1.Top, _
Form1.ScaleWidth, Form1.ScaleHeight,  3 
End Sub

Private Sub Timer1_Timer()
GetCursorPos curPos
BitBlt Picture1.hdc,  0 ,  0 ,  80 ,  80 , hDisp, curPos.x -  40 , _
curPos.y -  40 , vbSrcCopy
End Sub