[Mohamad Anan]

و عليكم السلام

كود :

       Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
       Dim types As Type() = myAssembly.GetTypes()
       For Each t As Type In types
           If UCase(t.BaseType.ToString) = "SYSTEM.WINDOWS.FORMS.FORM" Then
               If t.Name = "Form1" Then
                   MessageBox.Show(t.Name)
                   Exit For
               End If
           End If
       Next