This is the code i have:
Public Class Form1
Dim rng As New Random
Dim allPictureBoxes = Controls.OfType(Of PictureBox)()
Dim enemyPictureBoxes = allPictureBoxes.Where(Function(pb) pb.Name.Contains("Enemy"))
Dim ramdomisedPictureBoxes = enemyPictureBoxes.OrderBy(Function(pb) rng.NextDouble())
Dim randomPictureBox = ramdomisedPictureBoxes.First()
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim rng As New Random
Dim randomPictureBox = Controls.OfType(Of PictureBox)().
Where(Function(pb) pb.Name.Contains("Enemy")).
OrderBy(Function(pb) rng.NextDouble()).
First()
End Sub
Private increment, increments, current As Integer, myCtrl As Control
Private Sub StartMovingControl()
myCtrl = randomPictureBox
increment = 2
increments = 16
current = 0
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
myCtrl.Top -= increment
current += 1
If current = increments Then
If increment > 0 Then
increment = -increment
current = 0
Else
Timer1.Stop()
End If
End If
End Sub
End Class