mcs/class/Microsoft.VisualBasic/Test/standalone/5208.vb

   1 Imports Microsoft.VisualBasic \r
   2 Imports System\r
   3 Public Class TestClass \r
   4         Public Function Test() As String\r
   5                 'Begin Code\r
   6                         FileOpen (1, "5208.txt", OpenMode.Output)\r
   7                         Write (1, "Just a test")\r
   8                         FileClose (1)\r
   9 \r
  10                 'End Code\r
  11         End Function\r
  12 End Class\r