g=;

ℱ=FindMaximumFlow[g,"Vancouver","Winnipeg","OptimumFlowData"];

ℱ["FlowValue"]

Text[Grid[{#,ℱ[#]}&/@ℱ["EdgeList"],Background->{None,{{White,Lighter[Blend[{Blue,Green}],.8]}}},Dividers-> All,Alignment->{{Center,Right}},ItemSize->{{17,6}},Frame->Darker[Gray,.6],ItemStyle->14,Spacings->{Automatic,.8}]]

Panel[Show[{CountryData["Canada","Shape"],ℱ["FlowGraph"]}, PlotRange->{{-0.31,0.083},{0.04,0.25}}]]