usingステートメントでは、宣言部で複数のオブジェクトを記述する以外にも、usingステートメントを入れ子にして複数記述することもできます。

usingステートメントを入れ子にして複数のオブジェクトを使用する
Imports System
Imports System.IO

Class Sample
  Shared Sub Main()
    ' "source.txt"を読み込むストリームを作成し、使用し終わったら破棄する
    Using fromStream As FileStream = File.OpenRead("source.txt")
      ' "dest.txt"に書き込むストリームを作成し、使用し終わったら破棄する
      Using toStream As FileStream = File.OpenWrite("dest.txt")
        ' fromStreamの内容をtoStreamにコピーする
        ' (ファイルsource.txtの内容をdest.txtにコピーする)
        fromStream.CopyTo(toStream)
      End Using
    End Using
  End Sub
End Class