View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
JW[_2_] JW[_2_] is offline
external usenet poster
 
Posts: 638
Default adiing textbox..at runtime

Private Sub UserForm_Initialize()
Dim newCtrl As Control, num As Integer
num = 2
For i = 1 To num
Set newCtrl = _
Me.Controls.Add("Forms.TextBox.1", _
"txtBox" & i, True)
newCtrl.Top = 30 * i
Next i
End Sub

Hemant_india wrote:
hi there
i want to add the textboxes on my form at runtime
equal to the number ..say two as per the input
is it possible?
--
hemu