[3booody]

هل تقصد مربعات بهذا الشكل؟

كود :

Const HW As Integer = 40
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       For i As Integer = 0 To Me.Height Step HW
           e.Graphics.DrawLine(Pens.Black, 0, i, Me.Width, i)
       Next
       For j As Integer = 0 To Me.Width Step HW
           e.Graphics.DrawLine(Pens.Black, j, 0, j, Me.Height)
       Next
   End Sub

ووضع ازرار داخل كل مربع؟