FunctionsBlock.vb

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:N.N.NNNNN.N
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Namespace TestOutput
Public Class FunctionsBlock

#ExternalSource("FunctionsBlock.vbhtml",1)
          


#End ExternalSource

#ExternalSource("FunctionsBlock.vbhtml",5)
          
    Private _rand as New Random()
    Private Function RandomInt() as Integer
        Return _rand.Next()
    End Function

#End ExternalSource

Public Sub New()
MyBase.New
End Sub
Public Overrides Sub Execute()
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))

WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Here's a random number: ")


#ExternalSource("FunctionsBlock.vbhtml",12)
                   Write(RandomInt())


#End ExternalSource
End Sub
End Class
End Namespace