VB Code:
  1. Private Sub Form_Load()

  2.     Me.ScaleMode = vbPixels

  3. End Sub

  4.  
  5. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  6.     Me.Shape1.Left = (X \ 32) * 32

  7.     Me.Shape1.Top = (Y \ 32) * 32

  8. End Sub