'------------------------------------------------------------------------------
' <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 Blocks
Public Sub New()
MyBase.New
End Sub
Public Overrides Sub Execute()

#ExternalSource("Blocks.vbhtml",1)
     
    Dim i as Integer = 1


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",5)
 While i <= 10


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>Hello from VB.Net, #")


#ExternalSource("Blocks.vbhtml",6)
                        Write(i)


#End ExternalSource
WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",7)
    i += 1
End While


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",10)
 If i = 11 Then


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>We wrote 10 lines!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",12)
End If


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",14)
 Do


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>Hello again: ")


#ExternalSource("Blocks.vbhtml",15)
                Write(i)


#End ExternalSource
WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",16)
    i -= 1
Loop While i > 0


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",19)
 Select Case i
    Case 11


#End ExternalSource
WriteLiteral("        ")

WriteLiteral("<p>No really, we wrote 10 lines!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",22)
    Case Else


#End ExternalSource
WriteLiteral("        ")

WriteLiteral("<p>We wrote a bunch more lines too!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",24)
End Select


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",26)
 For j as Integer = 1 to 10 Step 2


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>Hello again from VB.Net, #")


#ExternalSource("Blocks.vbhtml",27)
                              Write(j)


#End ExternalSource
WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",28)
Next j


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",30)
 Try


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>That time, we wrote 5 lines!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",32)
Catch ex as Exception


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>Oh no! An error occurred: ")


#ExternalSource("Blocks.vbhtml",33)
                              Write(ex.Message)


#End ExternalSource
WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",34)
End Try


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",36)
 With i


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>i is now ")


#ExternalSource("Blocks.vbhtml",37)
             Write(.ToString())


#End ExternalSource
WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",38)
End With


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",40)
 SyncLock New Object()


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>This block is locked, for your security!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",42)
End SyncLock


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",44)
 Using New System.IO.MemoryStream()


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>Some random memory stream will be disposed after rendering this block</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("Blocks.vbhtml",46)
End Using

#End ExternalSource
End Sub
End Class
End Namespace
