Public Function OpenForm(ByVal FormName As String) As Form
    Dim mainAssembly As System.Reflection.Assembly = & _
        System.Reflection.Assembly.GetExecutingAssembly
    Dim objNewForm As Object = & _
        Activator.CreateInstance(Type.GetType(mainAssembly.GetName.Name + "." + FormName))
    Return DirectCast(objNewForm, Form)
End Function

發表者：Jason

程式小雜工