Dim   txt1()   As   VB.textbox   

  Dim   i   As   Integer 

  Private   Sub   Command1_Click()

  ReDim   Preserve   txt1(i)   As   VB.textbox

  Set   txt1(i)   =   Controls.Add("VB.textbox",   "txt"   &   i)

   With   txt1(i)

    .Visible   =   True

    .Left   =   txt1(0).Width   *   i

   End   With

   i   =   i   +   1

 End   Sub

arrow
arrow
    全站熱搜

    level168 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄