[سعود]

هذا هو الكود


Imports System.Reflection

كود :

Dim formType As Type = GetType(Form)
        For Each type As Type In Assembly.GetExecutingAssembly().GetTypes()
            ' type is a Form


            If formType.IsAssignableFrom(type) Then
                ListBox1.Items.Add(type.Name)
            End If
        Next