how to create new form while executing

[goodfather]

hi bro am working on listbox and i want your help. i want to know how to create new form while executing the tool. like
i have a list of items. when i select any of them a new form show(create)

[Bonnie West]

Here's an example:

Option Explicit    'Paste this in a blank Form

Private WithEvents List1 As VB.ListBox

Private Sub Form_Load()
    Caption = "Click the ListBox's 1st item."

    Set List1 = Controls.Add("VB.ListBox", "List1")
    With List1
        .AddItem Name
        .Move (ScaleWidth - .Width) * 0.5!, (ScaleHeight - .Height) * 0.5!
        .Visible = True
    End With
End Sub

Private Sub List1_Click()
    Forms.Add(List1.List(List1.ListIndex)).Show
End Sub

Remember, it's just an example. Study how it works so you can adapt it to your real code.

[Phill.W]

Forms and other Controls are 'Load'ed at run-time, not created.

Private Sub ListBox1_KeyDown(KeyCode As Integer, Shift As Integer)

   If ( KeyCode = vbKeyReturn ) Then 

      Select Case ListBox1.Text
      Case "Form 6"
         Load Form6
         Form6.Show 

      End Select 
   End If 

End Sub

I wouldn't put this code on Click (item selected) event, because that will get fired every time you move up or down the list.

Regards, Phill W.

[DataMiser]

Well you can create a copy of a form at runtime if that is what you mean

Dim NewForm as Form
Set NewForm=New Form1
NewForm.Show