'Lege eine PictureBox und eine Image in die Form.
 
Private Sub Form_Load()
  Me.ScaleMode = 3
  Me.WindowState = 2
  Set Image1.Picture = LoadPicture("C:\ARROW_1.CUR") 'Bild eines Mauszeigers
  Set Image1.Container = Picture1
  With Picture1
  .BackColor = vbCyan
  .Move 10, 10, 350, 300
  .ScaleMode = 3
  Set .MouseIcon = LoadPicture("C:\HIDE.CUR") 'Leeres Bild!
  .MousePointer = vbCustom
  End With
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  Dim XRaster%, YRaster%, XKorr%, YKorr%
 
  XRaster = 30 'Horizontales Raster
  YRaster = 30 'Vertikales Raster
  XKorr = 7
  YKorr = 9
  Image1.Move X - (X Mod XRaster) - XKorr, Y - (Y Mod YRaster) - YKorr
End Sub