Imports System
Imports System.Collections.ObjectModel
Imports System.IO
Public Class MainClass
Shared Sub Main()
' Get an available file number.
Dim file_num As Integer = FreeFile()
Console.WriteLine( file_num )
End Sub
End Class