VB.NET -- Dynamically created controls

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

Dim location As System.Drawing.Point

Dim x As Integer

Dim y As Integer

x = CInt(Int((1024 * Rnd()) + 1))

y = CInt(Int((768 * Rnd()) + 1))

location.X = x
location.Y = y
Button1.Location = location
Dim buttonarray As Collection

Dim btn(1) As Button

Dim i As Integer = 0

For i = 0 To 1

btn(i) = New Button()

x = CInt(Int((1024 * Rnd()) + 1))

y = CInt(Int((768 * Rnd()) + 1))

btn(i).Location = New System.Drawing.Point(x, y)

btn(i).Name = "btn(" & i & ")"
btn(i).Size = New System.Drawing.Size(120, 40)

btn(i).Text = "CLICK ME!"
Me.Controls.Add(btn(i))

Next

End Sub