Protected mybox() As TextBox
...
'页面动态加入控件
    Sub AddTextBox(ByVal CanFillFields As String)
        Dim i As Integer
        Dim Fields() As String
        Fields = Split(CanFillFields, "#")
        ReDim mybox(Fields.Length - 1)
        For i = 0 To Fields.Length - 1
            If Fields(i).Trim <> "" Then
                mybox(i) = New TextBox
                'mybox(i).Enabled = False
                mybox(i).Style.Item("width") = 0
                mybox(i).TextMode = TextBoxMode.MultiLine
                If Left(Fields(i), 1) = "签" Then mybox(i).ID = "sign" + Right(Fields(i), Fields(i).Length - 3)
                If Left(Fields(i), 1) = "多" Then mybox(i).ID = "m" + Right(Fields(i), Fields(i).Length - 4)
                If Left(Fields(i), 1) = "单" Then mybox(i).ID = "s" + Right(Fields(i), Fields(i).Length - 4)
                Ph1.Controls.Add(mybox(i))
            End If
        Next
    End Sub