Funzione in modulo che non funziona

[pietro09]

Qualcuno mi potrebbe per cortesia aiutare a fare funzionare una procedura in un modulo?

Module mdlLibreria
    Private This As HttpContext = HttpContext.Current()

    '--------------------------------------------------------------
    'Stampa una stringa con separatore riga
    '--------------------------------------------------------------
    Public Sub PrintLn(ByVal x$)
        This.Response.Write(x & "
")
    End Sub


End Module

E la richiamo nel seguente modo:

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PrintLn("Ciao, mondo!")
    End Sub

[Alchimista]

"This" è una parola riservata, penso che sia questo l'errore!

Ciao
'alchimista'

[pietro09]

Originariamente inviato da Alchimista
"This" è una parola riservata, penso che sia questo l'errore!

Ciao
'alchimista'

Ti ringrazio della risposta. This non credo sia una parola riservata in Basic.

Riassumo il problema. Come linguaggio utilizzo il Basic. Visto che sono ancora in fase di studio, non ho capito ancora se mi conviene utilizzare una libreria od un modulo per l'archiviazione di procedure e funzioni riutilizzabili.
Comunque, nel caso di modulo, mi si presenta il problema di utilizzare l'istruzione Response.write(....., che ovviamente non mi funziona. L'ho risolto in questo modo. Dichiaro una proprietà This che referenzia la pagina corrente:

Module mdlLibreria
    Private _This As Page

    Public Property This() As Page
        Get
            Return _This
        End Get
        Set(ByVal Value As Page)
            _This = Value
        End Set
    End Property

All'interno del modulo posso usare per esempio:
If This.Request.Form.Count > 0 Then ...


Nell'evento Load della pagina metto come prima istruzione:

This = Me


Se hai soluzioni migliori, ti prego di farmelo sapere
Ciao