04-12-15, 06:34 PM
شوفي هاد الكود يمكن تطلعني منه بفكره
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For y = 0 To 4
For x = 0 To 4
Dim textBox As New TextBox
textBox.Text = Chr(Asc("a") + y) & Chr(Asc("a") + x)
textBox.Location = New Point(100 + ((textBox.Width + 5) * x), 100 + ((textBox.Height + 5) * y))
Me.Controls.Add(textBox)
Next
Next
End Sub