Foro de elhacker.net

        For a As Integer = 1 To 4
            Dim aa = "RectangleShape" + a
            aa.left += 1
             RectangleShape+a+.Left += Aleatorio(1, -1)
            ' RectangleShape2.Left += Aleatorio(1, -1)
 
        Next a

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Point(600, 600)
        Dim Rando As New Random
 
        ' Creo los controles y los añado al form, para este ejemplo.
        Dim Button_(10) As Button
        For num = 0 To 10 : Button_(num) = New Button : Me.Controls.Add(Button_(num)) : Next
 
        For Each Control In Me.Controls
            If Control.GetType.ToString.Contains("Button") Then ' Si el control es de tipo Button...
                Control.location = New Point(Rando.Next(1, 500), Rando.Next(1, 500)) ' Los coloco aleatóriamente
            End If
        Next
    End Sub
 
End Class