Public Class Form1
Dim arr As New ArrayList
 
Private Sub Form1_MouseUp(sender As System.Object, _
e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
 
        Dim p As New Point
        p.X = e.X
        p.Y = e.Y
        arr.Add(p)
 
        Dim g As Graphics
        g.DrawLine(Pens.Black, e.X, e.Y - 5, e.X, e.Y + 5)
        g.DrawLine(Pens.Black, e.X - 5, e.Y, e.X + 5, e.Y)
 
End Sub
End Class