How to use Randomize to choose from array list?

Question

I am trying to randomly generate, based off of the 3 array list, 3 different positions the picturebox (stickimage) will appear. My code so far: Private Sub GenerateObjects() Dim RandomClass As New Random() 'Generate random number Dim Y As Integer 'Y axis Dim ObstaclePos(3) As Integer 'Position where obstacle is allocated ObstaclePos(1) = 404 ObstaclePos(2) = 310 ObstaclePos(3) = 290 Me.stickImage.Left -= 20 If stickImage.Bounds.IntersectsWith(LeftStickBrake.Bounds) Then For pos = 1 To 3 Y = 'This is where I am stuck stickImage.Location = New Point(1014, Y) Next pos End If End Sub

Answer 1

type orderedPair

top as integer

left as integer

end type

type Tdimensions

height as integer

width as integer

end type

'checks if the ordered pair overlaps the picture box

Function Overlaps ( orderedPair cur, orderedPair target, Tdimensions picSizes) As Boolean

Dim boolReturn as Boolean

boolReturn = false

if cur.top >= target.top and cur.top <= target.top+picSizes.height AND

cur.left >= target.left and cur.left <= target.left + picSizes.width

then

boolReturn =true

endif

overlaps = boolReturn

End Function