Plotting points and accounting for resize

pts.Clear()
 
        Dim upper_left As New Point(10, CInt(Me.Height / 2) - CInt(Me.Height / 10))
        Dim upper_right As New Point(Me.Width - 10, CInt(Me.Height / 2) - CInt(Me.Height / 10))
        Dim middle_left As New Point(5, CInt(Me.Height / 2))
        Dim middle_right As New Point(Me.Width - 5, CInt(Me.Height / 2))
        Dim lower_left As New Point(10, Me.Height - CInt(Me.Height / 2) + CInt(Me.Height / 10))
        Dim lower_right As New Point(Me.Width - 10, Me.Height - CInt(Me.Height / 2) + CInt(Me.Height / 10))
 
        pts.Enqueue(upper_left)
        pts.Enqueue(upper_right)
        pts.Enqueue(middle_left)
        pts.Enqueue(middle_right)
        pts.Enqueue(lower_left)
        pts.Enqueue(lower_right)