主题：动态控件 换行

 Dim zcdd As WinForm.Button
Dim Value As String = "我的项目|增加项目|保存清单|导出报价|导出选型|导出汇总"
Dim sps() As Char = {"|"}
Dim Names() As String  = Value.Split(sps)
Dim s As Integer = 2
Dim t As Integer = 5
For i As Integer = 0 To Names.length - 1
    If i <> 0 Then
        If i Mod 2 = 0 Then
            s = 2
            t = t  + 31
        Else
            s = s + 66.5
        End If
    End If
    Dim nm As String = Names(i)
    zcdd = Forms("主窗_菜单").CreateControl(nm, ControlTypeEnum.Button)
    zcdd.Text = nm
    zcdd.name = nm
    zcdd.Width = 66
    zcdd.Height = 30
    'zcdd.Left = e.Form.Controls("菜单页面").Tabpages("客户信息").Width - i * (68)
    zcdd.Left = 2 + i * (68)
    zcdd.Top = e.Form.Controls("菜单页面").Tabpages("客户信息").Height - 90
    e.Form.Controls("菜单页面").Tabpages("客户信息").AddControl(zcdd)
    zcdd.ToolTip = zcdd.Text '动态提示    

s,t这些变量，后面根本没有用到，当然没有效