01.Dim lbl As Label
02. For n = 0 To C_ROW * C_COLUMN - 1
03. lbl = New Label
04. lbl.Size = lbl_size
05. lbl.Location = New Point((n Mod C_COLUMN) * C_DIFF_X, (n \ C_COLUMN) * C_DIFF_Y)
06. lbl.BackColor = Color.White
07. lbl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
08. lbl.Name = "ก" & n
09. lbl.Text = (n \ C_COLUMN).ToString & "-" & (n Mod C_COLUMN)
10. AddHandler lbl.Click, AddressOf Me.Label_Click
11. Me.Panel1.Controls.Add(lbl)
12. Next
