Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    If e.Button = Windows.Forms.MouseButtons.Left Then
      ' aktuelle Mausposition bezogen auf den Desktop
      Dim nCurPos As Point = PictureBox1.PointToScreen(New Point(e.X, e.Y))
 
      ' Fenster an neuen Position verschieben
      Dim NewPos As New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
        nStartPos.Y + nCurPos.Y - nDragPos.Y)
      If NewPos.X < 100 Then NewPos.X = 100
      If NewPos.Y < 50 Then NewPos.Y = 50
 
      PictureBox1.Location = NewPos
    End If
  End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de