Dim x As Integer = 0 Dim y As Integer = 0 For i As Integer=0 To 52 '列出全部 If i Mod 5 = 0 Then y += 20 x = 0 Else x += 70 End If Dim txt As WinForm.label txt = e.Form.CreateControl("label" & i, ControlTypeEnum.label) txt.text = i txt.Font = New Font("微软雅黑", 9) txt.Left = 40 + x txt.Top = 10+y txt.Width = "500" txt.Height = "200" e.Form.Controls("Panel14").AddControl(txt) Next