请原谅我根据论坛的规则做错了，但我不知道该怎么做。这是对下面链接中问题的修改。有一个回答接近答案，但不完全是。通过“评论”或“编辑”来解释太多了，所以我想我应该做一个新的帖子。
How to Share Code Between Pages and Classes
无论如何（修改）的问题。
我试图在多个代码隐藏页面和多个类之间共享代码，这些类使用Page类的对象和方法。简单的例子是使用“response”和“session”对象。然而，在我的真实的例子中，我将使用其他Page对象和方法（例如GridView、Panels等）。
我想将公共页面对象相关代码保存在多个共享类中，并在多个页面和类之间共享代码。
下面的例子是基于我之前的Albert的建议（几乎成功了......归功于他）。
当使用下面的代码时，我在尝试从 “Class1”调用“Class2_Procedure” 时收到错误“Object reference not set to an instance of an object”（对象引用未设置为对象的示例）。

第页示例。调用“Class1_Procedure”和“Class2_Procedure”有效。调用“Class1_Procedure_Calling_Class2_Procedure”无效。

Partial Class _default
    Inherits System.Web.UI.Page

    Dim MyClass1 As New Class1(Me)
    Dim MyClass2 As New Class2(Me)

    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Response.Write("Default Page > Page_Load</br>")
        MyClass1.Class1_Procedure()
        MyClass2.Class2_Procedure()
        MyClass1.Class1_Procedure_Calling_Class2_Procedure()
    End Sub
End Class

类1。问题是当您从 *“Class1”调用 *“Class2_Procedure”时。

Public Class Class1
    Dim MyPage As Page

    Sub New(MePage As Page)
        MyPage = MePage
    End Sub

    Dim MyClass2 As New Class2(MyPage)

    Sub Class1_Procedure()
        MyPage.Response.Write("Class1 > Class1_Procedure</br>")
    End Sub

    Sub Class1_Procedure_Calling_Class2_Procedure()
        MyPage.Response.Write("Class1 > Class1_Procedure_Calling_Class2_Procedure</br>")
        MyClass2.Class2_Procedure()
    End Sub
End Class

类2。“Class2_Procedure”可以从主页调用，但问题是当您从 “Class1”调用“Class2_Procedure” 时。

Public Class Class2
    Dim MyPage As Page

    Sub New(MePage As Page)
        MyPage = MePage
    End Sub

    Sub Class2_Procedure()
        MyPage.Response.Write("Class2 > Class2_Procedure</br>")
    End Sub
End Class