Uma forma simples seria assim:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Left = Screen.ActiveForm.Left + X - Picture1.Height
Picture1.Top = Screen.ActiveForm.Top + Y - Picture1.Width
End Sub
Via API deve ter uma solução melhor, se encontrar passo para você depois.