title: Creating JSON key, value in VB.NET
body: <p>I have the following code:</p>
  
  <pre><code>    Dim result = New Dictionary(Of String, String)
  
      For Each item In food
  
          result.Add(StrConv(item.Shrt_Desc.Replace(",", ", "), VbStrConv.ProperCase), item.Shrt_Desc)
  
      Next
  
      Return Json(result, JsonRequestBehavior.AllowGet)
  </code></pre>
  
  <p>I need to make it into the following key and value in JSON:</p>
  
  <blockquote>
    <p>An array of objects with label and value properties: [ { label:
    "Choice1", value: "value1" }, ... ]</p>
  </blockquote>
  
  <p>How can I do this?  Thank you.</p>