[ابو انس]

وعليكم السلام ورحمة الله وبركاته
تفضل

كود :

      For Each a As Type In Me.GetType().Assembly.GetTypes()
           If a.BaseType.Name = "Form" Then
               ComboBox1.Items.Add(CType(Activator.CreateInstance(a), Form).Text)
           End If
       Next