Public Class CrossFormDemo
 
    Dim crossposition As Point = New Point(-1, -1)
 
    Private Sub CrossFormDemo_MouseUp(sender As Object, _
        e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
 
        crossposition = e.Location
        Me.Invalidate()  'Hier kann auch ein einschränkendes Rechteck gegeben 
        ' werden
    End Sub
 
 
    Private Sub CrossFormDemo_Paint(sender As Object, _
        e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        If crossposition.X > 0 Then
            Using myPen As New Drawing.Pen(Color.Black, 2)
                With e.Graphics
                    .DrawLine(myPen, _
                    crossposition.X, crossposition.Y - 5, _
                    crossposition.X, crossposition.Y + 5)
                    .DrawLine(myPen, _
                    crossposition.X - 5, crossposition.Y, _
                    crossposition.X + 5, crossposition.Y)
                End With
            End Using
            crossposition.X = -1
        End If
    End Sub
End Class