主题：求助 动态多行TextBox,

你要设置控件的高度啊

Dim t As Table = Tables("表A")

For  i As Integer=0 To t.rows.count-1
    Dim txt As WinForm.TextBox
    txt = e.Form.CreateControl("TextBox" & i, ControlTypeEnum.TextBox)
    txt.MultiLine = True
    txt.text = "品   牌: " & t.rows(i)("pan") & "主  题:" & t.rows(i)("zu")  & "季节:" & t.rows(i)("zz")
    txt.BorderStyle = BorderStyle. None
    txt.BackColor = Color.FromARGB(25, 25, 25)
    txt.ForeColor = Color.FromARGB(250, 250, 250)
    txt.Width = 300
    txt.Height = 100
    txt.Left = 300*i+10
    txt.Top = 285
    txt.ReadOnly = BooleanEnum.False
    e.Form.Controls("hsr").AddControl(txt)
Next