'Benötigt werden: 1 Frame, 1 Image-Control
Option Explicit
 
Private Raster&
 
Private Sub Form_Load()
  Frame1.MousePointer = vbCustom
  Set Frame1.MouseIcon = LoadPicture("C:\HIDE.CUR") 'Leere Cursor-Datei oder 
  ' leeres Icon
  Frame1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
  Set Image1.Container = Frame1
  Set Image1.Picture = LoadPicture("C:\ARROW1.CUR") 'Cursor-Datei mit Mauszeiger
  Raster = 32 * Screen.TwipsPerPixelX 'Rasterbreite
End Sub
 
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  Image1.Move Raster * Int(0.5 + X / Raster), Raster * Int(0.5 + Y / Raster)
End Sub

Gruss,

Zardoz