• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Creating forms at run time

Creating forms at run time

Creating forms at run time

API Declarations


'place a text box and a command button over it
'the text box will hold value i.e the no of the forms to create and clicking
'the command button will create the forms
Dim i As Integer



Rate Creating forms at run time

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()
    For i = 1 To Text1.Text  ' run the loop from 1 to text1.text no of times
        Dim frm2 As frm1     ' create the new instance of form
        Set frm2 = New frm1  ' create a new form 
        frm2.Show            ' show new form 
    Next
End Sub