Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim a As System.Reflection.Assembly = _
        System.Reflection.Assembly.GetExecutingAssembly()
        Dim t As Type
        For Each t In a.GetExportedTypes()
            If t.BaseType Is GetType(Form) Then
                ComboBox1.Items.Add(t)
            End If
        Next
    End Sub
 
    Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ComboBox1.TextChanged
        Dim t As Type = Type.GetType(ComboBox1.Text)
        Dim f As Form = CType(Activator.CreateInstance(t), Form)
        f.Show()
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov