Visual Basic

Private Function ExtractValue(ByVal URL As String, ByVal Category As String) As String

        Dim strValue As String = String.Empty
        Dim strSplitURL() As String = Split(strUrl, "&" & Category & "=")
        Dim strSecondSplit() As String = Split(strSplitURL(1), "&")
        strValue = strSecondSplit(0)
        Return strValue

    End Function

Private _lineDrag As Boolean = False
Private _x As Integer = 0
Private _y As Integer = 0

Private Sub LineShape1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseDown

    If e.Button = Windows.Forms.MouseButtons.Left Then
        _lineDrag = True
        _x = e.X
        _y = e.Y

    End If

End Sub

Private Sub LineShape1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseMove

    If e.Button = Windows.Forms.MouseButtons.Left And _lineDrag Then

        LineShape1.X1 = (LineShape1.StartPoint.X + e.X) - _x
        LineShape1.X2 = (LineShape1.EndPoint.X + e.X) - _x

        LineShape1.Y1 = (LineShape1.StartPoint.Y + e.Y) - _y
        LineShape1.Y2 = (LineShape1.EndPoint.Y + e.Y) - _y

        Me.Refresh()

    End If

End Sub

Private Sub LineShape1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseUp

    If e.Button = Windows.Forms.MouseButtons.Left Then
        _lineDrag = False
    End If

End Sub