Private Sub SurroundingSub()
    Dim fileMetadata = New File() With {
        .Name = "photo.jpg"
    }
    Dim request As FilesResource.CreateMediaUpload

    Using stream = New System.IO.FileStream("files/photo.jpg", System.IO.FileMode.Open)
        request = driveService.Files.Create(fileMetadata, stream, "image/jpeg")
        request.Fields = "id"
        request.Upload()
    End Using

    Dim file = request.ResponseBody
    Console.WriteLine("File ID: " & file.Id)
End Sub