For i As Integer=0 To Tables("表A").rows.count-1 Dim txt As WinForm.PictureBox txt = e.Form.CreateControl("pic_" & i, ControlTypeEnum.PictureBox) txt.BackColor = Color.Black txt.Width = 200 txt.Height = 250 txt.Left = 220*i + 50 txt.Top = 35 e.Form.Controls("Panel1").AddControl(txt) Next