هذا هو الكود
Imports System.Reflection
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