[VB.NET, 2.0] Passare il ref ad una classe come parametrodi una Sub

[ghini76]

Ciao a tutti,
ho varie pagine aspx in cui devo sempre integrare una Sub che esegue delle operazioni, tutte uguali sulla Sessione, su un Panel della pagina e sul ViewState. Quindi gestisco i gli oggetti Me per il ViewState e il Panel, Page per la Session.

Vorrei inserire questa sub in un modulo in modo da ottimizzare il codice, ma come faccio a passare la classe Me ad una Sub?

Ciao e grazie

[pietro09]

Public Sub MsgBox(ByVal pagina As System.Web.UI.Page, ByVal messaggio As String)

[ghini76]

Grazie,
come al solito... però stavolta ho bisogno di un aiutino in più...
una delle operazioni che devo fare è aggiungere un handler ad una Sub della pagina.
Quindi ho nella pagina la Sub DataChanged a cui si deve aggiungere l'handler e nel modulo:

    Public Shared Sub AddChangingEvent(ByVal Ogg As System.Web.UI.Page, ByVal AggiungiEvento As Boolean)
        Dim Panel As Control
        Dim Ctrl As Control
        Dim C As CheckBox
        Dim R As RadioButton
        Dim T As TextBox
        Dim D As DropDownList
        For Each Panel In pannello.Controls
            For Each Ctrl In Panel.Controls
                If TypeOf Ctrl Is CheckBox Then
                    C = Ctrl
                    If AggiungiEvento Then AddHandler C.CheckedChanged, AddressOf Ogg.DataChanged  Else RemoveHandler C.CheckedChanged, AddressOf Ogg.DataChanged 
                ElseIf TypeOf Ctrl Is RadioButton Then
                    R = Ctrl
                    If AggiungiEvento Then AddHandler R.CheckedChanged, AddressOf Ogg.DataChanged  Else RemoveHandler R.CheckedChanged, AddressOf Ogg.DataChanged 
                ElseIf TypeOf Ctrl Is TextBox Then
                    T = Ctrl
                    If AggiungiEvento Then AddHandler T.TextChanged, AddressOf Ogg.DataChanged  Else RemoveHandler T.TextChanged, AddressOf Ogg.DataChanged 
                ElseIf TypeOf Ctrl Is DropDownList Then
                    D = Ctrl
                    If AggiungiEvento Then AddHandler D.SelectedIndexChanged, AddressOf Ogg.DataChanged  Else RemoveHandler D.SelectedIndexChanged, AddressOf Ogg.DataChanged 
                End If
            Next
        Next
    End Sub

In questa sub devo quindi devo fare riferimento a Ogg.DataChanged e a Ogg.MainPanel ma come faccio?
Spero di esser stato chiaro...

ciao e grazie tanto assai!!!