visionapi.vb

Dim client = New VisionServiceClient("**key**")
Dim result = Await client.AnalyzeImageAsync("画像 URL") ' 画像の Stream も指定可能

If result.Categories IsNot Nothing AndAlso result.Categories.Any AndAlso
            result.Categories.First.Name.StartsWith("food_") Then 
    ' （画像のカテゴリーが食べ物の場合）
End If