Visual Basic

Dim fdragging As Boolean = False
    Dim StartX, startY As Integer

  
    Private Sub LineShape1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseDown
        fdragging = True
        StartX = e.X
        startY = e.Y
    End Sub

    Private Sub LineShape1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseMove
        Cursor.Current = Cursors.SizeAll
        If fdragging Then
            LineShape1.StartPoint = New Point(LineShape1.StartPoint.X + e.X - StartX, LineShape1.StartPoint.Y + e.Y - startY)
            LineShape1.EndPoint = New Point(LineShape1.EndPoint.X + e.X - StartX, LineShape1.EndPoint.Y + e.Y - startY)
        End If
    End Sub

    Private Sub LineShape1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ShapeContainer1.MouseUp
        fdragging = False
        StartX = 0
        startY = 0
    End Sub

EvanSaunders wrote:

SELECT * FROM Table WHRE Field1 LIKE 'start*'