كود انشاء Button برمجيا وفي حلقة For

'Public WithEvents B As Button

'Dim sql_tim As String = "select max(pc_no) from pc "

'cmd_pc.Connection = con

'cmd_pc.CommandText = sql_tim

'n = cmd_pc.ExecuteScalar

====================

'Dim x, y,i

'x = 269

'y = 44

'For i = 1 To n

'B(i) = New Button

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

'B(i).Name = "b" & i

'B(i).Size = New System.Drawing.Size(101, 103)

'B(i).TabIndex = i

'B(i).Text = "open" & i

'B(i).UseVisualStyleBackColor = True

'B(i).ContextMenuStrip = Me.ContextMenuStrip1

'Controls.Add(B(i))

'x = x + 130

'If i Mod 6 = 0 Then

'x = 269

'y = y + 120

'End If

'Next

ـــــــــــــــــــــــــــــــــــ

'Private Sub B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 'B1.Click

'Msgbox("welcom")

'End Sub