'------------------------------------------------------------------------------
' <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
Private Shared __o As Object

#ExternalSource("FunctionsBlock.vbhtml",1)
          


#End ExternalSource

#ExternalSource("FunctionsBlock.vbhtml",2)
          
    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()

#ExternalSource("FunctionsBlock.vbhtml",3)
                   __o = RandomInt()


#End ExternalSource
End Sub
End Class
End Namespace
