Private MyScriptingContext As ScriptingContext
  Private MyApplication As Application
  Private MyRequest As Request
  Private MyResponse As Response
  Private MyServer As Server
  Private MySession As Session

Public Sub OnStartPage(ASPScriptingContext As ScriptingContext)
   Set MyScriptingContext = ASPScriptingContext
   Set MyApplication = MyScriptingContext.Application
   Set MyRequest = MyScriptingContext.Request
   Set MyResponse = MyScriptingContext.Response
   Set MyServer = MyScriptingContext.Server
   Set MySession = MyScriptingContext.Session
End Sub

Public Sub Prova()
  MyResponse.Write ("<p>Il mio primo component in VB.</p>")
End Sub