Public Shared Sub FileClose ( _
    ParamArray FileNumbers As Integer() _
)

Dim FileNumbers As Integer()

FileSystem.FileClose(FileNumbers)

public static void FileClose (
    params int[] FileNumbers
)

public:
static void FileClose (
    ... array<int>^ FileNumbers
)

public static void FileClose (
    int[] FileNumbers
)

public static function FileClose (
    ... FileNumbers : int[]
)

Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file.
Do While Not EOF(1)   ' Loop until end of file.
   TextLine = LineInput(1)   ' Read line into variable.
   MsgBox(TextLine)   ' Display the line
Loop
FileClose(1)   ' Close file.