Dim hyouji As String hyouji = Me.GetType.Namespace & "." & ComboBox1.Text Dim f As Form f = Activator.CreateInstanceFrom(Me.GetType.Assembly.Location, hyouji).Unwrap() f.Show()