Przesuwanie pictureboxa po formie za kursorem po osi X ?

[kamiljabłko]

Chodzi mi o przesuwnie pictureboxa  po formie tak by poruszał się tylko po osi X (poziomej _) i by śledził kursor aż do puszczenia przycisku.

Moja wersja kodu ,tylko że pictureBox znika

Public Class VolumeEditor
    Dim mousex As Integer
    Dim drag As Boolean = False

    Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
        drag = True
        mousex = Windows.Forms.Cursor.Position.X
    End Sub
    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If drag Then
            PictureBox1.Location = New Point(mousex, 0)
        End If
    End Sub
    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        drag = False
    End Sub
End Class

 

[tubady123]

Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown

drag = True

mousex = e.X

End Sub

 

Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove

If drag Then

PictureBox1.Left += e.X - mousex

End If

End Sub

 

Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp

drag = False

End Sub

[kamiljabłko]

A jak dodać do tego punkty maksymalnego przesuwania ?

Czyli ma się przesuwać od punktu 123 do 321.

[kamiljabłko]

Troszeczkę przekształciłem kod ale nadal nie działa

Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
        drag = True
        mousex = e.X
    End Sub


    Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
        drag = False
    End Sub
    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If PictureBox1.Location = New Point(-1, 0) Then
            PictureBox1.Location = New Point(0, 0)
        End If
        If PictureBox1.Location = New Point(101, 0) Then
            PictureBox1.Location = New Point(100, 0)
        End If
        If drag And (PictureBox1.Location = New Point(-1, 0)) = False And (PictureBox1.Location = New Point(101, 0)) = False Then
            PictureBox1.Left += e.X - mousex
        End If


    End Sub
    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        drag = False
    End Sub

[kamiljabłko]

Co należy zrobić by program wiedział że jeżeli punkt położenia picturebox'a jest pomiędzy 101 a 200 to ma ustawić go na punkcie 100?

[kamiljabłko]

Już sobie poradziłem działa jak należy