Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
Dim myType As Object
txt_form_name.Items.Clear()
For Each myType In types
' mytype
If myType.BaseType.FullName = "System.Windows.Forms.Form" Then
txt_form_name.Items.Add(myType.Name)
End If
Next