Public Class Form1
Private A1(100) As Button
Private Iter As Integer = 0
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
A1(Iter) = New Button
With A1(Iter)
.Top = .Height * Iter + 10
.Left = 10
.Text = "Кнопка " & CStr(Iter)
.Visible = True
.Parent = Me
End With
Iter = Iter + 1
If Iter > 100 Then MsgBox("Чё-та много кнопок, нэ?")
End Sub
End Class
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 78