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