mcs/mbas/Test/tests/ForC.vb

   1 Imports System
   2
   3 Module ForB
   4     Class C1
   5         Sub x()
   6             For index as integer = 0 To 2
   7                Console.WriteLine(index)
   8             Next
   9
  10         End Sub
  11
  12     End Class
  13
  14     Sub main()
  15         Dim c As New C1()
  16         c.x()
  17     End Sub
  18
  19 End Module