Создание длинного курсора PictureBox

Imports System.Drawing.Drawing2D
Public Class Form1
    Private _Pen As New Pen(Color.Red, 2) With {.DashStyle = DashStyle.Solid}
    Private _CurPos As Point
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With FadenKreuz_i
            .Location = New Point(0, 0)
            .Size = New Size(Diagramm_i.Size.Width - 2, Diagramm_i.Size.Height - 2)
            .Parent = Diagramm_i
            .BackColor = Color.Transparent
        End With
    End Sub
    Private Sub FadenKreuz_i_MouseMove(sender As Object, e As MouseEventArgs) Handles FadenKreuz_i.MouseMove
        Try
            If Diagramm_i.Image Is Nothing Then Exit Sub ' на тот случай если график ещё не загружен
            FadenKreuz_i.Refresh() '
            _CurPos = e.Location
            FadenKreuz_i.CreateGraphics.DrawLine(_Pen, 0, _CurPos.Y, FadenKreuz_i.Width, _CurPos.Y)
            FadenKreuz_i.CreateGraphics.DrawLine(_Pen, _CurPos.X, 0, _CurPos.X, FadenKreuz_i.Height)
        Catch ex As Exception
            If Err.Number = 5 Then Exit Sub
        End Try
    End Sub
End Class

Public Class Form8
    Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PictureBox1.Image = Image.FromFile("t1.jpg")
        PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
        PictureBox2.Size = New Size(PictureBox1.Size)
        PictureBox2.Location = New Point(PictureBox1.Location)
        PictureBox2.BackColor = Color.Transparent
        PictureBox2.Parent = PictureBox1
    End Sub
    Private Sub PictureBox2_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseMove
        PictureBox2.Refresh()
        Dim gr As Graphics = PictureBox2.CreateGraphics
        Dim pn As New Pen(Color.Black, 0)
        gr.DrawLine(pn, 0, e.Y, PictureBox2.Width, e.Y)
        gr.DrawLine(pn, e.X, 0, e.X, PictureBox2.Height)
    End Sub
    Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    End Sub 'поставьте здесь точку останова
End Class