在一个工程里面有若干窗体和若干类，类是按照 前缀+任意文字串 的规则来决定的，前缀部分不会重复。
在程序启动的时候，可以得到一个用户输入的字符串，如果工程内的某个窗体类的名称的前面部分和这个字符串相同的话，就显示这个窗体。
现在我写了一段代码来实现查找窗体的功能，可是其中有两行不满意的地方，请问能不能把这两行注释为不满意的代码用一个函数来替换呢？或者不管代码给点其他的解决思路也行。
代码如下。(简化了一下，并且删除了错误处理)
Dim gsAutoOpenFormID As String = "TF9001" '假设用户想要打开[TF9001小实验]这个窗体
Dim AutoOpenFormType As Type = Nothing
If gsAutoOpenFormID <> "" Then
For Each theType As Type In System.Reflection.Assembly.GetExecutingAssembly.GetTypes '不满意
If theType.Name.StartsWith(gsAutoOpenFormID, StringComparison.CurrentCultureIgnoreCase) Then '不满意
If theType.IsSubclassOf(GetType(Form)) Then
AutoOpenFormType = theType
Exit For
End If
End If
Next
End If
If AutoOpenFormType IsNot Nothing Then
fMainForm = Activator.CreateInstance(AutoOpenFormType)
End If
